Skip to content

Commit 0a92f51

Browse files
authored
Merge pull request #72 from JohanWiltink/main
ScottList.dropWhile bug
2 parents 9f2fc85 + 480d414 commit 0a92f51

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

tests/scott-lists/solution.txt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -153,7 +153,7 @@ filter = \ p . foldr ( \ x z . p x z (cons x z) ) nil
153153
take-while = \ p xs . xs nil \ x xs . p x nil (cons x (take-while p xs))
154154

155155
# drop-while :: (a -> Boolean) -> List a -> List a
156-
drop-while = \ p xs . xs nil \ x xs . p x xs (drop-while p xs)
156+
drop-while = \ p xxs . xxs nil \ x xs . p x xxs (drop-while p xs)
157157

158158
# drop-while-end :: (a -> Boolean) -> List a -> List a
159159
drop-while-end = \ p . foldr ( \ x z . and (null z) (p x) (cons x z) nil ) nil

0 commit comments

Comments
 (0)