; Can we accumulate the potatoes in this dish?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 6
; Exercise 9
; Common Lisp
; http://t...content-available-to-author-only...r.com/thelittlelisper
; http://t...content-available-to-author-only...t.com/2010/06/little-lisper-chapter-6-oh-my-gawd-its.html
; http://t...content-available-to-author-only...t.com/2010/06/little-lisper.html
; ------------------------------
(setf l1 '((fried potatoes)(baked (fried)) tomatoes))
(setf l2 '(((chili) chili (chili))))
(setf l3 '())
(setf lat1 '(chili and hot)) 
(setf lat2 '(baked fried)) 
(setf a 'fried)
; ------------------------------
 
(defun add1 (a)
  (+ 1 a))
 
(defun occur (a lat)
  (cond
   ((null lat) 0)
   (t (cond
       ((eq (car lat) a)
        (add1 (occur a (cdr lat))))
       (t (occur a (cdr lat)))))))
 
(print (occur 'a '(a b c d c (b a))))
 
(defun occur (a lat acc)
  (cond
   ((null lat) acc)
   (t (cond
       ((eq (car lat) a)
        (occur a (cdr lat) (add1 acc)))
       (t (occur a (cdr lat) acc))))))
 
(print (occur 'a '(a b c d c (b a)) 0))
 
(defun occur (a lat acc)
  (cond
   ((null lat) acc)
   (t (occur a (cdr lat) 
             (cond 
              ((eq (car lat) a)
               (add1 acc))
              (t acc))))))
 
(print (occur 'a '(a b c d c (b a)) 0))
 
;The original value for acc is 0
 

OyBDYW4gd2UgYWNjdW11bGF0ZSB0aGUgcG90YXRvZXMgaW4gdGhpcyBkaXNoPwo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQo7IFRoZSBMaXR0bGUgTGlzcGVyIDNyZCBFZGl0aW9uCjsgQ2hhcHRlciA2CjsgRXhlcmNpc2UgOQo7IENvbW1vbiBMaXNwCjsgaHR0cDovL3QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnIuY29tL3RoZWxpdHRsZWxpc3Blcgo7IGh0dHA6Ly90Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi50LmNvbS8yMDEwLzA2L2xpdHRsZS1saXNwZXItY2hhcHRlci02LW9oLW15LWdhd2QtaXRzLmh0bWwKOyBodHRwOi8vdC4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4udC5jb20vMjAxMC8wNi9saXR0bGUtbGlzcGVyLmh0bWwKOyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KKHNldGYgbDEgJygoZnJpZWQgcG90YXRvZXMpKGJha2VkIChmcmllZCkpIHRvbWF0b2VzKSkKKHNldGYgbDIgJygoKGNoaWxpKSBjaGlsaSAoY2hpbGkpKSkpCihzZXRmIGwzICcoKSkKKHNldGYgbGF0MSAnKGNoaWxpIGFuZCBob3QpKSAKKHNldGYgbGF0MiAnKGJha2VkIGZyaWVkKSkgCihzZXRmIGEgJ2ZyaWVkKQo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQoKKGRlZnVuIGFkZDEgKGEpCiAgKCsgMSBhKSkKCihkZWZ1biBvY2N1ciAoYSBsYXQpCiAgKGNvbmQKICAgKChudWxsIGxhdCkgMCkKICAgKHQgKGNvbmQKICAgICAgICgoZXEgKGNhciBsYXQpIGEpCiAgICAgICAgKGFkZDEgKG9jY3VyIGEgKGNkciBsYXQpKSkpCiAgICAgICAodCAob2NjdXIgYSAoY2RyIGxhdCkpKSkpKSkKCihwcmludCAob2NjdXIgJ2EgJyhhIGIgYyBkIGMgKGIgYSkpKSkKCihkZWZ1biBvY2N1ciAoYSBsYXQgYWNjKQogIChjb25kCiAgICgobnVsbCBsYXQpIGFjYykKICAgKHQgKGNvbmQKICAgICAgICgoZXEgKGNhciBsYXQpIGEpCiAgICAgICAgKG9jY3VyIGEgKGNkciBsYXQpIChhZGQxIGFjYykpKQogICAgICAgKHQgKG9jY3VyIGEgKGNkciBsYXQpIGFjYykpKSkpKQoKKHByaW50IChvY2N1ciAnYSAnKGEgYiBjIGQgYyAoYiBhKSkgMCkpCgooZGVmdW4gb2NjdXIgKGEgbGF0IGFjYykKICAoY29uZAogICAoKG51bGwgbGF0KSBhY2MpCiAgICh0IChvY2N1ciBhIChjZHIgbGF0KSAKICAgICAgICAgICAgIChjb25kIAogICAgICAgICAgICAgICgoZXEgKGNhciBsYXQpIGEpCiAgICAgICAgICAgICAgIChhZGQxIGFjYykpCiAgICAgICAgICAgICAgKHQgYWNjKSkpKSkpCgoocHJpbnQgKG9jY3VyICdhICcoYSBiIGMgZCBjIChiIGEpKSAwKSkKCjtUaGUgb3JpZ2luYWwgdmFsdWUgZm9yIGFjYyBpcyAwCg==