From 767189d5ae155c1ee3f120ab59110d1a92db0d88 Mon Sep 17 00:00:00 2001 From: Arity-T Date: Thu, 14 Nov 2024 15:50:33 +0300 Subject: [PATCH] =?UTF-8?q?=D0=92=D1=8B=D0=BD=D0=B5=D1=81=20randomSeed?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lab2/fern/fern_simple.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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