McCarthy 91 function by jpl

puts$_="M(#{$<.read})"
puts$_ while sub!(/M.(\d+)./){(i=$1.to_i)>100?i-10:"M(M(#{i+11}))"}

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

download

return to the top page