(a:b)%x=[p:q|p<-x,q<-b%filter(/=p)x,p<a||q<b] a%x=[x] main=mapM putStrLn$"1/3/236/6"%['0'..'9']
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page