
I wonder why life/10.8 runs nonsensically on my PC even with Language.Haskell.HsColour.ANSI import? These cls and goto reappear in 11.7 that spoil the pleasure of understanding. Also putGrid/11.4 is unintuitive backsword engineering concoction that teaches nothing, while it can be very intuitively written: putGrid g = sequence_ [putStrLn j| j<-weave [' ','|',' ','|',' '] (interleave (replicate 6 '-') [(interleave '|' i)| i<-g])] interleave :: a->[a]->[a] interleave x [] = [] interleave x [y] = [y] interleave x (y:ys)= y:x:interleave x ys weave :: a->[a]->[a] weave x [] = [x] weave x [y] = x:[y,x] weave x (y:ys)= x:y:weave x ys Prelude> putGrid [[' ','O','O'],['O','X','O'],['X','X','X']] | | |O|O | | ------ | | O|X|O | | ------ | | X|X|X | |
participants (1)
-
Sylvester Hazel