permutation date by notogawa

main=mapM putStrLn$foldr(#)[""]"0929:95959"
n#x=[a:s|a<-['0'..n],s<-x,all(/=a)s,n:a:s<":24"]

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

download

return to the top page