Equations by NearO

y#z|y<z=y+z|y>z=y-z|0<1=y*z
f=foldl1(#).map read.words
k(x,z:y)=putStr.take(99*(f x-f y)^2)$x++z:y++"\n"
m@main=getLine>>=k.span(<'=')>>m

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

download

return to the top page