Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (findinlist list index)
- ((list? (car list)) (findinlist (car list) index) )
- (if (= index 0) (car list) (findinlist (cdr list) (- index 1))))
- (findinlist '(1 2 3) 2)
- Error: vm-exception
- (car 1)
Add Comment
Please, Sign In to add comment