December 2nd, 2012

with Cat The Cat

"Генератор лабиринтов" в одну строку.

maze = map (("\\/" !!) . (`mod` 2) . (`mod` 65537)) $ iterate ((+1) . (*0x8088405)) 123
Запускать с помощью "putStr maze".

А по ссылке выше есть ещё ссылочки - например, на печать изображений с дополнением цифровой информацией.