goto10.hs

A Haskell variation of the C64's goto10 labyrinth creating program:

Original version

10 PRINT CHR$(205.5+RND(1)); : GOTO 10

Output of this version

╲╲╲╲╱╱╱╱╱╲╲╱╱╲╱╲╲╱╱╱╲╱╱╲╲╲╲╱╱╱╲╱╱╱╱╱╱╲╱╲
╲╱╲╱╱╲╱╲╱╱╲╱╲╱╲╱╲╱╲╲╲╲╲╲╲╲╱╱╱╲╱╱╲╱╲╲╲╲╱╱
╱╱╲╱╱╱╲╲╲╱╱╲╲╲╱╱╲╱╱╲╲╱╲╲╲╲╲╲╱╲╱╲╱╱╲╲╱╲╱╲
╲╱╱╱╲╱╲╲╱╲╱╱╱╲╱╱╱╱╲╱╲╱╲╲╲╲╲╱╲╱╱╲╱╲╲╲╲╲╲╲
╲╲╱╲╲╲╱╱╱╱╲╱╲╱╲╱╱╱╲╱╲╱╲╱╲╲╱╲╲╱╱╲╱╲╱╱╱╲╱╱
╲╲╱╱╲╲╱╲╲╱╱╱╲╲╱╲╱╱╱╱╱╲╱╱╱╱╱╲╱╲╲╲╱╱╲╲╲╱╲╱
╱╲╲╲╱╲╱╱╱╲╲╱╲╲╱╲╲╱╲╲╱╲╱╱╱╱╱╱╱╲╱╲╱╲╱╱╲╲╱╲
╲╲╱╱╲╱╲╱╲╱╱╱╲╱╲╲╱╱╱╱╱╲╲╱╱╱╱╲╱╲╱╱╱╱╱╲╲╱╲╱
╲╲╲╱╱╱╲╱╲╲╱╲╲╲╱╱╱╲╲╲╲╲╲╱╲╱╲╱╲╲╱╱╱╲╲╲╲╱╲╱
╱╱╲╲╱╱╲╱╲╲╲╱╱╲╲╱╱╲╱╱╱╲╲╲╱╲╲╲╲╲╱╲╱╲╱╱╱╲╲╲
╱╲╲╱╲╱╱╲╱╲╲╱╱╱╲╱╲╱╱╲╱╲╱╱╱╱╲╱╲╲╲╲╲╲╱╲╱╱╲╲
╲╲╱╱╱╱╱╲╲╲╱╱╱╲╲╲╱╱╱╱╲╱╱╲╲╱╱╲╲╲╱╱╲╲╱╱╲╱╲╱
╱╲╱╱╱╲╱╲╲╱╲╱╲╲╲╱╱╱╱╲╱╲╱╲╱╱╲╲╲╱╲╲╲╲╱╲╱╲╲╱
╲╲╲╲╲╱╱╲╱╲╱╲╱╲╱╲╲╲╱╱╱╲╱╲╲╲╱╲╲╲╱╲╲╲╲╲╲╲╲╲
╱╲╲╱╱╲╲╱╲╱╲╲╲╲╱╲╱╲╲╱╱╲╲╱╱╱╲╱╲╲╱╲╱╱╱╲╱╲╲╱
╲╱╲╱╲╱╲╲╱╱╲╱╱╲╱╱╲╱╱╱╱╲╲╲╱╲╱╲╲╱╲╲╱╲╲╱╱╱╲╱
╲╱╱╲╲╲╱╲╲╱╱╱╲╲╲╱╲╱╱╲╲╱╱╱╲╱╱╲╱╱╱╱╲╲╱╱╱╲╱╲
╲╱╲╱╱╲╲╱╲╲╱╱╲╱╱╱╲╲╲╱╲╱╱╲╲╲╲╱╲╱╲╲╲╱╲╲╱╱╱╲
╱╲╲╲╲╱╱╲╱╱╲╲╲╲╲╱╲╱╱╱╲╱╲╱╱╲╲╲╲╱╲╲╲╱╲╲╲╲╲╲
╱╲╱╲╱╱╲╲╱╲╲╱╲╲╱╱╲╱╲╱╱╱╱╱╱╲╱╱╲╲╱╲╱╲╱╲╲╱╲╲
╱╱╲╲╱╲╱╲╲╲╱╱╲╲╲╲╲╱╲╲╲╲╱╱╱╱╲╱╱╲╲╱╱╱╲╲╲╲╱╱