diff options
| author | Determinant <[email protected]> | 2017-06-19 14:55:32 -0400 |
|---|---|---|
| committer | Determinant <[email protected]> | 2017-06-19 14:55:32 -0400 |
| commit | cd571888d6dd73045c324e9fdf133bfef9ddb3ca (patch) | |
| tree | dcd524315eeb5d4d4d4ce21a91bf2658ac314f81 | |
| parent | 09103516be58b5dbadcc636b952e541fef80dab6 (diff) | |
| -rw-r--r-- | 90-94/92.hs | 4 |
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] |