Narrow down problem, probably with bullets hitting creature

2021-03-15 14:32:30 +01:00
parent 0519635a27
commit 370f41738c
1 changed files with 1 additions and 1 deletions
@@ -22,7 +22,7 @@ import qualified Data.Set as S
 -- }}}
 --
 leftPad :: Int -> a -> [a] -> [a]
-leftPad i x xs = reverse $ take i $ reverse xs ++ repeat x
+leftPad i x xs = reverse $ take i $ reverse (take i xs) ++ repeat x

 rightPad :: Int -> a -> [a] -> [a]
 rightPad i x xs = take i $ xs ++ repeat x