univer-5th-semester/functional-programming
Code Actions Releases 7

Вынес randomSeed

Browse Source
This commit is contained in:
Артём Тищенко
2024-11-14 15:50:33 +03:00
parent 0d29c786db
commit 767189d5ae
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lab2/fern/fern_simple.hs
View File

@@ -34,6 +34,7 @@ barnsleyFern gen startPoint n =
n = 1000 n = 1000
randomSeed = 17
main :: IO () main :: IO ()
main = print $ barnsleyFern (mkStdGen 42) (0, 0) n main = print $ barnsleyFern (mkStdGen randomSeed) (0, 0) n