Sign of inequality by henkma

main=interact(\i->unlines[l%s"<>"%s"  "|l<-lines i%zipWith(s"^V")])
(a:b:c)%f=a:f a b:(b:c)%f;x%_=x
s[x,y]a b|a>x=' '|a>b=y|0<1=x

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

download

return to the top page