summaryrefslogtreecommitdiff
path: root/90-94/92.hs
diff options
context:
space:
mode:
Diffstat (limited to '90-94/92.hs')
-rw-r--r--90-94/92.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/90-94/92.hs b/90-94/92.hs
index 0f6f7a0..1d04f22 100644
--- a/90-94/92.hs
+++ b/90-94/92.hs
@@ -1,4 +1,4 @@
-import Data.List (sortBy)
+import Data.List (sortBy, foldl')
import Data.Ord (comparing)
vonKoch :: [(Int, Int)] -> [[(Int, Int)]]
@@ -10,7 +10,7 @@ vonKoch edges = koch (reverse adj) [] [] []
| x <- [1..maxvn],
x `notElem` vused,
let en = map (abs . (x-)) (map (findn vplan) us),
- let (eused', f) = foldl (\(l, f) d ->
+ let (eused', f) = foldl' (\(l, f) d ->
(d:l, f && d `notElem` l
&& 1 <= d && d <= maxen))
(eused, True) en, f]