11 lines
533 B
Haskell
11 lines
533 B
Haskell
module Main where
|
|
|
|
import Gridworld (dotgraph)
|
|
import Registerworld (dotgraph)
|
|
import Crossword (dotgraph)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
--mapM_ (\n -> writeFile ("output/register" ++ show n ++ ".dot") (Registerworld.dotgraph n)) [2..16]
|
|
--mapM_ (\(w,h) -> writeFile ("output/grid" ++ show w ++ "x" ++ show h ++ ".dot") (Gridworld.dotgraph w h)) [(2,2), (2,3), (2,4), (2,5), (3,3), (3,4)]
|
|
mapM_ (\(w,h) -> writeFile ("output/crossword" ++ show w ++ "x" ++ show h ++ ".dot") (Crossword.dotgraph w h)) . fmap (\x -> (x, x)) $ [2..12]
|