From b1a5ce504211fec214b558320b703ac62934b848 Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Sun, 10 Nov 2024 03:22:38 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9A=D0=BE=D1=81=D0=BC=D0=B5=D1=82=D0=B8?=
 =?UTF-8?q?=D1=87=D0=B5=D1=81=D0=BA=D0=B8=D0=B5=20=D0=BF=D1=80=D0=B0=D0=B2?=
 =?UTF-8?q?=D0=BA=D0=B8=20=D0=BF=D0=B0=D0=BF=D0=BE=D1=80=D0=BE=D1=82=D0=BD?=
 =?UTF-8?q?=D0=B8=D0=BA=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lab2/fern/fern.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lab2/fern/fern.hs b/lab2/fern/fern.hs
index 60308b7..b348f84 100644
--- a/lab2/fern/fern.hs
+++ b/lab2/fern/fern.hs
@@ -14,7 +14,7 @@ transformation3 (x, y) = (0.2 * x - 0.26 * y, 0.23 * x + 0.22 * y + 1.6)
 transformation4 :: Point -> Point
 transformation4 (x, y) = (-0.15 * x + 0.28 * y, 0.26 * x + 0.24 * y + 0.44)
 
-applyTransformation :: (Ord a, Fractional a) => Point -> a -> Point
+applyTransformation :: Point -> Float -> Point
 applyTransformation point random
   | random < 0.01 = transformation1 point
   | random < 0.86 = transformation2 point
@@ -28,10 +28,10 @@ genNextPoint point = do
 
 barnsleyFern :: Point -> Int -> IO [Point]
 barnsleyFern _ 0 = return []
-barnsleyFern start n = do
-  x' <- genNextPoint start
+barnsleyFern startPoint n = do
+  x' <- genNextPoint startPoint
   xs <- barnsleyFern x' (n - 1)
-  return (start : xs)
+  return (startPoint : xs)
 
 main :: IO ()
 main = do