; Double frying the baked tomatoes (nested atom duplication)
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 6
; Exercise 3
; 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 double (a lat)
  (cond
   ((null lat) '())
   ((eq (car lat) a)(cons a lat))
   (t (cons (car lat)
            (double a (cdr lat))))))
 
(print (double 'bob '(bob the builder)))
 
(defun notatom (lat)
  (not (atom lat)))
 
(defun double* (a lat)
  (cond
   ((null lat) '())
   ((notatom (car lat))
    (cons (double* a (car lat))
          (double* a (cdr lat))))
   ((eq (car lat) a)(cons a lat))
   (t (cons (car lat)
            (double* a (cdr lat))))))
 
(print (double* 'bob '(bob the builder)))
;(BOB BOB THE BUILDER)
 
(print (double* 'bob '((bob) the builder)))
;((BOB BOB) THE BUILDER)
 
(print (double* a l1))
;((FRIED FRIED POTATOES) (BAKED (FRIED FRIED)) TOMATOES)
 
(print (double* a l2))
;(((CHILI) CHILI (CHILI)))
 
(print (double* a lat2))
;(BAKED FRIED FRIED)
 

OyBEb3VibGUgZnJ5aW5nIHRoZSBiYWtlZCB0b21hdG9lcyAobmVzdGVkIGF0b20gZHVwbGljYXRpb24pCjsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCjsgVGhlIExpdHRsZSBMaXNwZXIgM3JkIEVkaXRpb24KOyBDaGFwdGVyIDYKOyBFeGVyY2lzZSAzCjsgQ29tbW9uIExpc3AKOyBodHRwOi8vdC4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uci5jb20vdGhlbGl0dGxlbGlzcGVyCjsgaHR0cDovL3QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnQuY29tLzIwMTAvMDYvbGl0dGxlLWxpc3Blci1jaGFwdGVyLTYtb2gtbXktZ2F3ZC1pdHMuaHRtbAo7IGh0dHA6Ly90Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi50LmNvbS8yMDEwLzA2L2xpdHRsZS1saXNwZXIuaHRtbAo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQooc2V0ZiBsMSAnKChmcmllZCBwb3RhdG9lcykoYmFrZWQgKGZyaWVkKSkgdG9tYXRvZXMpKQooc2V0ZiBsMiAnKCgoY2hpbGkpIGNoaWxpIChjaGlsaSkpKSkKKHNldGYgbDMgJygpKQooc2V0ZiBsYXQxICcoY2hpbGkgYW5kIGhvdCkpIAooc2V0ZiBsYXQyICcoYmFrZWQgZnJpZWQpKSAKKHNldGYgYSAnZnJpZWQpCjsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgooZGVmdW4gZG91YmxlIChhIGxhdCkKICAoY29uZAogICAoKG51bGwgbGF0KSAnKCkpCiAgICgoZXEgKGNhciBsYXQpIGEpKGNvbnMgYSBsYXQpKQogICAodCAoY29ucyAoY2FyIGxhdCkKICAgICAgICAgICAgKGRvdWJsZSBhIChjZHIgbGF0KSkpKSkpCgoocHJpbnQgKGRvdWJsZSAnYm9iICcoYm9iIHRoZSBidWlsZGVyKSkpCgooZGVmdW4gbm90YXRvbSAobGF0KQogIChub3QgKGF0b20gbGF0KSkpCgooZGVmdW4gZG91YmxlKiAoYSBsYXQpCiAgKGNvbmQKICAgKChudWxsIGxhdCkgJygpKQogICAoKG5vdGF0b20gKGNhciBsYXQpKQogICAgKGNvbnMgKGRvdWJsZSogYSAoY2FyIGxhdCkpCiAgICAgICAgICAoZG91YmxlKiBhIChjZHIgbGF0KSkpKQogICAoKGVxIChjYXIgbGF0KSBhKShjb25zIGEgbGF0KSkKICAgKHQgKGNvbnMgKGNhciBsYXQpCiAgICAgICAgICAgIChkb3VibGUqIGEgKGNkciBsYXQpKSkpKSkKCihwcmludCAoZG91YmxlKiAnYm9iICcoYm9iIHRoZSBidWlsZGVyKSkpCjsoQk9CIEJPQiBUSEUgQlVJTERFUikKCihwcmludCAoZG91YmxlKiAnYm9iICcoKGJvYikgdGhlIGJ1aWxkZXIpKSkKOygoQk9CIEJPQikgVEhFIEJVSUxERVIpCgoocHJpbnQgKGRvdWJsZSogYSBsMSkpCjsoKEZSSUVEIEZSSUVEIFBPVEFUT0VTKSAoQkFLRUQgKEZSSUVEIEZSSUVEKSkgVE9NQVRPRVMpCgoocHJpbnQgKGRvdWJsZSogYSBsMikpCjsoKChDSElMSSkgQ0hJTEkgKENISUxJKSkpCgoocHJpbnQgKGRvdWJsZSogYSBsYXQyKSkKOyhCQUtFRCBGUklFRCBGUklFRCkK