f=->x,y,z{x>y ?$*[y*z*3-x]||=f[f[x-5,y,z],f[y-5,z,x],f[z-5,x,y]]:z} lp{p f[*gt./.m(&:toi)]}

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

download

return to the top page