Bitwise Sequence by Hendrik

import Data.List
import Data.Ord
main=mapM putStrLn$sortBy(comparing(\x->sum[1|'1'<-x]))$mapM(\_->"10")[1..8]

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

download

return to the top page