Fix typo in filter function

ps-tuebingen · Feb 5, 2024 · c8876de · c8876de
1 parent a8fffda
commit c8876de
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/15-loops.scrbl b/15-loops.scrbl
@@ -173,7 +173,7 @@ Sie sind wie folgt definiert:
 (define (filter f xs)
   (cond [(empty? xs) empty]
         [(cons? xs) (if (f (first xs))
-                        (cons (first xs) (filter1 f (rest xs)))
+                        (cons (first xs) (filter f (rest xs)))
                         (filter f (rest xs)))]))
 
 ; [X Y] (X -> (list-of Y)) (list-of X) -> (list-of Y)