; Building a nests for the banana kiwi list (multidown)
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 5
; 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-5-multichapter.html
; http://t...content-available-to-author-only...t.com/2010/06/little-lisper.html
; ------------------------------
(setf x 'comma)
(setf y 'dot)
(setf a 'kiwis)
(setf b 'plums)
(setf lat1 '(bananas kiwis))
(setf lat2 '(peaches apples bananas))
(setf lat3 '(kiwis pears plums bananas cherries))
(setf lat4 '(kiwis mangoes kiwis guavas kiwis))
(setf l1 '((curry) () (chicken) ()))
(setf l2 '((peaches) (and cream)))
(setf l4 '())
; ------------------------------
 
;note the usage of the list function to build lists - where quote is not sufficient
(quote 'bob)
(quote (quote 'bob))
(list 'bob)
 
(defun multidown (lat)
  (cond
   ((null lat) '())
   (t 
       (cons (list (car lat)) (multidown  (cdr lat))))))
 
(print (multidown lat1))
;((BANANAS) (KIWIS))
(print (multidown lat2))
;((PEACHES) (APPLES) (BANANAS))
(print (multidown l4))
;()
 

OyBCdWlsZGluZyBhIG5lc3RzIGZvciB0aGUgYmFuYW5hIGtpd2kgbGlzdCAobXVsdGlkb3duKQo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQo7IFRoZSBMaXR0bGUgTGlzcGVyIDNyZCBFZGl0aW9uCjsgQ2hhcHRlciA1CjsgRXhlcmNpc2UgMwo7IENvbW1vbiBMaXNwCjsgaHR0cDovL3QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnIuY29tL3RoZWxpdHRsZWxpc3Blcgo7IGh0dHA6Ly90Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi50LmNvbS8yMDEwLzA2L2xpdHRsZS1saXNwZXItY2hhcHRlci01LW11bHRpY2hhcHRlci5odG1sCjsgaHR0cDovL3QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnQuY29tLzIwMTAvMDYvbGl0dGxlLWxpc3Blci5odG1sCjsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCihzZXRmIHggJ2NvbW1hKQooc2V0ZiB5ICdkb3QpCihzZXRmIGEgJ2tpd2lzKQooc2V0ZiBiICdwbHVtcykKKHNldGYgbGF0MSAnKGJhbmFuYXMga2l3aXMpKQooc2V0ZiBsYXQyICcocGVhY2hlcyBhcHBsZXMgYmFuYW5hcykpCihzZXRmIGxhdDMgJyhraXdpcyBwZWFycyBwbHVtcyBiYW5hbmFzIGNoZXJyaWVzKSkKKHNldGYgbGF0NCAnKGtpd2lzIG1hbmdvZXMga2l3aXMgZ3VhdmFzIGtpd2lzKSkKKHNldGYgbDEgJygoY3VycnkpICgpIChjaGlja2VuKSAoKSkpCihzZXRmIGwyICcoKHBlYWNoZXMpIChhbmQgY3JlYW0pKSkKKHNldGYgbDQgJygpKQo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQoKO25vdGUgdGhlIHVzYWdlIG9mIHRoZSBsaXN0IGZ1bmN0aW9uIHRvIGJ1aWxkIGxpc3RzIC0gd2hlcmUgcXVvdGUgaXMgbm90IHN1ZmZpY2llbnQKKHF1b3RlICdib2IpCihxdW90ZSAocXVvdGUgJ2JvYikpCihsaXN0ICdib2IpCgooZGVmdW4gbXVsdGlkb3duIChsYXQpCiAgKGNvbmQKICAgKChudWxsIGxhdCkgJygpKQogICAodCAKICAgICAgIChjb25zIChsaXN0IChjYXIgbGF0KSkgKG11bHRpZG93biAgKGNkciBsYXQpKSkpKSkKCihwcmludCAobXVsdGlkb3duIGxhdDEpKQo7KChCQU5BTkFTKSAoS0lXSVMpKQoocHJpbnQgKG11bHRpZG93biBsYXQyKSkKOygoUEVBQ0hFUykgKEFQUExFUykgKEJBTkFOQVMpKQoocHJpbnQgKG11bHRpZG93biBsNCkpCjsoKQo=