Diamond cards by Lost_dog

m@main=do putStrLn$17#"-";x<-readLn;putStr$foldl(\s n->take(n-1)s++"*"++drop n s)(15#(17#" "++"\n"))$(g$words"1 6 $H $6H #%GI #%6GI #%57GI #%-57GI #%-57?GI #%/16;=GI #%*/1;=BGI"!!x)>>=f;m
f n=[n,n-1,n+1,n+18,n-18]
n#s=[1..n]>>s
g(c:x)=fromEnum c*6-189:g x
g _=[]

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

download

return to the top page