Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- putStrLn ('\n':((\b -> ' ' : concat [' ': (show n) | n <- [1..8]] ++ concat ['\n':(\b' y' ((t',_),(_,_)) -> (show t') ++ concat [' ':((\p -> if p == 1 then 'b' else if p == 0 then 'w' else if p == 3 then '?' else '-')(b' ! z):[]) | z <- (range y')]) b y y | y <- [((x,1),(x,8)) | x <- [1..8]]]) ((\f -> f // (zip [(3,4),(4,3),(5,6),(6,5)] (replicate 4 3))) ((listArray ((1,1),(8,8)) (cycle [-1])) // (zip [(x,y) | x <- [4,5], y <- [4,5]] [0,1,1,0])))))
Advertisement
Add Comment
Please, Sign In to add comment
