@@ -62,16 +62,17 @@ make name n0 tbl seed0 = do
62 fill _ _ = []
62 fill _ _ = []
64 lookupTable : String
64 lookupTable : String
65− lookupTable = Foldable.concat (fill (drop 1 $ scanl accum ('a',0) tbl) 0)
65+ lookupTable = Foldable.concat (fill (scanl accum ('a',0) tbl) 0)
67 make' : Int -> Int -> Int -> String -> IO Int
67 make' : Int -> Int -> Int -> String -> IO Int
68 make' 0 col seed buf = when (col > 0) (putStrLn buf) $> return seed
68 make' 0 col seed buf = when (col > 0) (putStrLn buf) $> return seed
69 make' n col seed buf = do
69 make' n col seed buf = do
70− let newseed = modInt (seed * 3877 + 39573) modulus
70+ let newseed = modInt (seed * 3877 + 29573) modulus
71 let nextchar = strIndex lookupTable newseed
71 let nextchar = strIndex lookupTable newseed
72+ let newbuf = buf <+> singleton nextchar
72 if col+1 >= 60
73 if col+1 >= 60
73− then putStrLn buf $> make' (n-1) 0 newseed (singleton nextchar)
74+ then putStrLn newbuf $> make' (n-1) 0 newseed ""
74− else make' (n-1) (col+1) newseed (strCons nextchar buf)
75+ else make' (n-1) (col+1) newseed newbuf
77main : IO ()
78main : IO ()