Power Set by Icewing

q x y=[y,x:y]
f[]="0";f x='{':foldr1(#)x++"}";a#b=a++", "++b
h x=f x:h(map f$foldr((=<<).q)[[]]x)
main=readLn>>=putStr.(h[]!!)

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

download

return to the top page