reduce code size of recipes-by-ingredients by using 'filter'

2017-04-05 15:08:16 +02:00 · 2017-04-05 15:08:16 +02:00 · cc3cd7c19f
commit cc3cd7c19f
parent 98648ee163
1 changed files with 2 additions and 16 deletions
--- a/parse.scm
+++ b/parse.scm
@ -63,19 +63,5 @@

 (define recipes-by-ingredients
  (lambda (recipes search-ingredients)
-    (recipes-by-ingredients-rec recipes search-ingredients '())))
-
-(define recipes-by-ingredients-rec
-  (lambda (recipes search-ingredients list)
-    (if (null? recipes)
-        list
-        (let* ((recipe (car recipes))
-               (ingredients (ingredients recipe))
-               (contains? (contains-ingredients? recipe
-                                                 search-ingredients))
-               (new-list (if contains?
-                             (cons recipe list)
-                             list)))
-          (recipes-by-ingredients-rec (cdr recipes)
-                                      search-ingredients
-                                      new-list)))))
+    (filter (lambda (x) (contains-ingredients? x search-ingredients))
+            recipes)))