Pro představu chování funkce přikládám svůj mathlab prototyp McCarthy funkce

function A = McCarthy(x)
y1 = x;
y2 = 1;
while y2 ~= 0
    if y1 > 100
        y1 = y1 - 10;
        y2 = y2 - 1;
    else
        y1 = y1 + 11;
        y2 = y2 + 1;
    end
    y1
    y2
end

nebo se dá stáhnout z rapidshare, kdyby se někomu nechtěl kopírovat :)