From 480d414908c51e06448dac6b9a617a5cba908ff6 Mon Sep 17 00:00:00 2001 From: Johan Wiltink Date: Wed, 2 Mar 2022 20:01:35 +0100 Subject: [PATCH] ScottList.dropWhile bug --- tests/scott-lists/solution.txt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/scott-lists/solution.txt b/tests/scott-lists/solution.txt index 17c0eaf..8bc6e12 100644 --- a/tests/scott-lists/solution.txt +++ b/tests/scott-lists/solution.txt @@ -153,7 +153,7 @@ filter = \ p . foldr ( \ x z . p x z (cons x z) ) nil take-while = \ p xs . xs nil \ x xs . p x nil (cons x (take-while p xs)) # drop-while :: (a -> Boolean) -> List a -> List a -drop-while = \ p xs . xs nil \ x xs . p x xs (drop-while p xs) +drop-while = \ p xxs . xxs nil \ x xs . p x xxs (drop-while p xs) # drop-while-end :: (a -> Boolean) -> List a -> List a drop-while-end = \ p . foldr ( \ x z . and (null z) (p x) (cons x z) nil ) nil