Deadfish by kyagrd

f('i':s)v=f s$v+1
f('d':s)v=f s$max(v-1)0
f('s':s)16=f s 0
f('s':s)v=f s$v*v
f('o':s)v=show v++"\n"++f s v
f(_:s)v=f s v
f _ v=[]
main=interact(`f`0)

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

download

return to the top page