Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #lang scheme
- (define-struct item (id desc price) #:transparent)
- (define testlist (list
- (make-item 1 'burger 1.20)
- (make-item 2 'cheeseburger 1.50)
- (make-item 3 'bananaburger 8.00)
- (make-item 4 'potatoburger 5.00)
- (make-item 5 'plumburger 4.00)
- (make-item 6 'yoghurtburger 0.10)
- (make-item 7 'humanburger 20.00)
- (make-item 8 'purpleburger 0.33)
- (make-item 9 'treeburger 10.40)
- (make-item 10 'burgerburgerrr 2.50)))
- (define (lookup id testlist)
- (if (= (item-id (car testlist)) id)
- (car testlist)
- ((lookup (id (cdr testlist))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement