diff --git a/lab2/fern/fern_simple.hs b/lab2/fern/fern_simple.hs index 6e9ff44..863dd51 100644 --- a/lab2/fern/fern_simple.hs +++ b/lab2/fern/fern_simple.hs @@ -34,6 +34,7 @@ barnsleyFern gen startPoint n = n = 1000 +randomSeed = 17 main :: IO () -main = print $ barnsleyFern (mkStdGen 42) (0, 0) n +main = print $ barnsleyFern (mkStdGen randomSeed) (0, 0) n