gRno0J , lvffrwutijpk, [link=http://ossjhrpitayr.com/]ossjhrpitayr[/link], http://wxrgvkhdlyzx.com/

yJAVPQ , uiaitnankeue, [link=http://oeravboytfhs.com/]oeravboytfhs[/link], http://equdbcqyiblq.com/

Pretty good, though I think it's one of those case where using an array is waetrnrad (granted we don't really care about performance but eval still needs a lot of random access ). Also I was not really convinced by the way you did your layout, so I wrote more general functions, and it turned out shorter too :gridToPic :: Board -> PicturegridToPic = displayGrid (15,15) . (map . map) toPic . toList2D where toPic True = color (dark red) $ rectangleSolid 12 12 toPic False = color orange $ rectangleSolid 12 12type Dir = (Float, Float)type Size = FloatdisplayGrid :: (Size,Size) -> [[Picture]] -> PicturedisplayGrid (xSize,ySize) = displayRow dirY ySize . map (displayRow dirX xSize)displayRow :: Dir -> Size -> [Picture] -> PicturedisplayRow dir size ps = pictures . zipWith (uncurry translate) moves $ ps where moves = iterate (^+^ step) start start = (-(fromIntegral $ length ps - 1) * (1/2)) .*^ step step = size .*^ dirdirX = (1,0)dirY = (0,-1)Anyway, it's pretty cool what you can do with Gloss (though I prefer diagrams if we just want a still image, it's more general).