; Can you combine an S-expr and a thunk to make a stream?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 9
; 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-9-lamdba-ultimate.html
; http://t...content-available-to-author-only...t.com/2010/06/little-lisper.html
; ------------------------------
 
(defun add1 ()
    (lambda (n)
      (+ 1 n)))
 
(setf zero 0)
 
(defun zero (n)
  (cond
   ((null n) '())
   ((= zero n) t)
   (t '())))
 
(defun sub1 (n)
  (cond
   ((null n) '())
   ((- n 1))))
 
 
(print (funcall (add1) 1))
;2
 
(defun build (a b)
  (cons a (cons b '())))
 
(defun str-maker (next n)
  (build n (lambda () (str-maker next (funcall (funcall next) n)))))
 
(defun int_ () (str-maker 'add1 0))
 
(defun add2 ()
  (lambda (n)
    (+ 2 n)))
 
(print (funcall (add2) 1))
;3
 
(defun even () (str-maker 'add2 0))
 
(defun odd () (str-maker 'add2 1))
 
(defun frontier (str n)
    (cond
     ((zero n) '())
     (t (cons (first  (funcall str)) (frontier (second (funcall str)) (sub1 n))))))
 
(print (frontier #'int_ 10))
;(0 1 2 3 4 5 6 7 8 9)
 
(print (frontier #'int_ 100))
;(0 1 2 3 4 5 6 7 8 9 ...)
 
(print (frontier #'even 23))
;(0 2 4 6 8 10 12 14 16 18 ...)
 
(print (frontier (function odd) 10))
;(1 3 5 7 9 11 13 15 17 19)
 

OyBDYW4geW91IGNvbWJpbmUgYW4gUy1leHByIGFuZCBhIHRodW5rIHRvIG1ha2UgYSBzdHJlYW0/CjsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCjsgVGhlIExpdHRsZSBMaXNwZXIgM3JkIEVkaXRpb24KOyBDaGFwdGVyIDkKOyBFeGVyY2lzZSA5CjsgQ29tbW9uIExpc3AKOyBodHRwOi8vdC4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uci5jb20vdGhlbGl0dGxlbGlzcGVyCjsgaHR0cDovL3QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnQuY29tLzIwMTAvMDYvbGl0dGxlLWxpc3Blci1jaGFwdGVyLTktbGFtZGJhLXVsdGltYXRlLmh0bWwKOyBodHRwOi8vdC4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4udC5jb20vMjAxMC8wNi9saXR0bGUtbGlzcGVyLmh0bWwKOyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KCihkZWZ1biBhZGQxICgpCiAgICAobGFtYmRhIChuKQogICAgICAoKyAxIG4pKSkKICAgICAgCihzZXRmIHplcm8gMCkKCihkZWZ1biB6ZXJvIChuKQogIChjb25kCiAgICgobnVsbCBuKSAnKCkpCiAgICgoPSB6ZXJvIG4pIHQpCiAgICh0ICcoKSkpKQoKKGRlZnVuIHN1YjEgKG4pCiAgKGNvbmQKICAgKChudWxsIG4pICcoKSkKICAgKCgtIG4gMSkpKSkKCgoocHJpbnQgKGZ1bmNhbGwgKGFkZDEpIDEpKQo7MgoKKGRlZnVuIGJ1aWxkIChhIGIpCiAgKGNvbnMgYSAoY29ucyBiICcoKSkpKQoKKGRlZnVuIHN0ci1tYWtlciAobmV4dCBuKQogIChidWlsZCBuIChsYW1iZGEgKCkgKHN0ci1tYWtlciBuZXh0IChmdW5jYWxsIChmdW5jYWxsIG5leHQpIG4pKSkpKQoKKGRlZnVuIGludF8gKCkgKHN0ci1tYWtlciAnYWRkMSAwKSkKCihkZWZ1biBhZGQyICgpCiAgKGxhbWJkYSAobikKICAgICgrIDIgbikpKQoKKHByaW50IChmdW5jYWxsIChhZGQyKSAxKSkKOzMKCihkZWZ1biBldmVuICgpIChzdHItbWFrZXIgJ2FkZDIgMCkpCgooZGVmdW4gb2RkICgpIChzdHItbWFrZXIgJ2FkZDIgMSkpCgooZGVmdW4gZnJvbnRpZXIgKHN0ciBuKQogICAgKGNvbmQKICAgICAoKHplcm8gbikgJygpKQogICAgICh0IChjb25zIChmaXJzdCAgKGZ1bmNhbGwgc3RyKSkgKGZyb250aWVyIChzZWNvbmQgKGZ1bmNhbGwgc3RyKSkgKHN1YjEgbikpKSkpKQoKKHByaW50IChmcm9udGllciAjJ2ludF8gMTApKQo7KDAgMSAyIDMgNCA1IDYgNyA4IDkpCgoocHJpbnQgKGZyb250aWVyICMnaW50XyAxMDApKQo7KDAgMSAyIDMgNCA1IDYgNyA4IDkgLi4uKQoKKHByaW50IChmcm9udGllciAjJ2V2ZW4gMjMpKQo7KDAgMiA0IDYgOCAxMCAxMiAxNCAxNiAxOCAuLi4pCgoocHJpbnQgKGZyb250aWVyIChmdW5jdGlvbiBvZGQpIDEwKSkKOygxIDMgNSA3IDkgMTEgMTMgMTUgMTcgMTkpCg==