Tak z _FIXED_ by pooq

do
read*,i,j,k
print'(i0)',n(i,j,k)
enddo
end
recursive function n(i,j,k)result(m)
m=k
if(i>j)m=n(n(i-5,j,k),n(j-5,k,i),n(k-5,i,j))
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page