From 862e37b2e39932ef7ef38d54d5da3abb2722c503 Mon Sep 17 00:00:00 2001
From: ik1g19 <ik1g19@soton.ac.uk>
Date: Tue, 29 Dec 2020 18:52:53 +0000
Subject: [PATCH] fixed addToGrid
---
cw/src/Challenges.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/cw/src/Challenges.hs b/cw/src/Challenges.hs
index 9c50038..1948480 100644
--- a/cw/src/Challenges.hs
+++ b/cw/src/Challenges.hs
@@ -166,9 +166,11 @@ insertString rg s gen | elemAt rg (x,y) /= Rand &&
((x,y),newGen) = generatePos gen (length rg)
vDirs = validDirs rg s (x,y)
- addToGrid :: Orientation -> String -> (Int,Int) -> RandGrid
- addToGrid dir (c:cs) (x',y') = addToGrid dir cs charAdded (nextPos dir (x',y'))
+ addToGrid :: Orientation -> String -> RandGrid -> (Int,Int) -> RandGrid
+ addToGrid dir (c:[]) rg (x',y') = insertAt2D (Letter c) (x',y') rg
+ addToGrid dir (c:cs) rg (x',y') = addToGrid dir cs charAdded (nextPos dir (x',y'))
where
+ charAdded :: RandGrid
charAdded = insertAt2D (Letter c) (x',y') rg
--addToGrid dir = map (\(c,(m,n)) -> insertAt2D (Letter c) (m,n) rg) (zip s (take (length s) $ iterate (nextPos dir) (x,y)))
--
GitLab