(load "/home/rebelsky/Web/Scheme/books.ss")


(define grover
  (list "Stone" "Jon" "There's a Monster at the End"
        (list "short" "great" "funny" "children" "scary")))

(define like 
  (lambda (like-words adjectives score)
    (cond
      ((null? like-words) score)
      ((member (car like-words) adjectives)
       (like (cdr like-words) adjectives (+ 1 score)))
      (else
       (like (cdr like-words) adjectives score)))))
       
; DrScheme, please compute the score of grover
(like (list "children" "short") (list-ref grover 3) 0)