christoffer/cookbook-dsl
1
0
Fork 0
Code Issues 5 Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Christoffer Müller Madsen 2017-04-05 15:08:16 +02:00
parent 98648ee163
commit cc3cd7c19f
1 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
parse.scm
View File

@ -63,19 +63,5 @@
(define recipes-by-ingredients (define recipes-by-ingredients
(lambda (recipes search-ingredients) (lambda (recipes search-ingredients)
(recipes-by-ingredients-rec recipes search-ingredients '()))) (filter (lambda (x) (contains-ingredients? x search-ingredients))
recipes)))
(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)))))