Advertisement
Guest User

Untitled

a guest
Mar 18th, 2017
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.56 KB | None | 0 0
  1. #lang scheme
  2.  
  3. (define-struct  item (id desc price) #:transparent)
  4.  
  5. (define testlist (list
  6.  
  7. (make-item 1 'burger 1.20)
  8. (make-item 2 'cheeseburger 1.50)
  9. (make-item 3 'bananaburger 8.00)
  10. (make-item 4 'potatoburger 5.00)
  11. (make-item 5 'plumburger 4.00)
  12. (make-item 6 'yoghurtburger 0.10)
  13. (make-item 7 'humanburger 20.00)
  14. (make-item 8 'purpleburger 0.33)
  15. (make-item 9 'treeburger 10.40)
  16. (make-item 10 'burgerburgerrr 2.50)))
  17.  
  18.  
  19. (define (lookup id testlist)
  20.     (if (= (item-id (car testlist)) id)
  21.        (car testlist)
  22.         ((lookup (id (cdr testlist))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement