sum1to10.scm

;; use apply
(apply + (iota 10 1))

;; use fold
(fold (lambda (n r)
        (+ n r))
      0
      (iota 10 1))

;; recursive recursion
(((lambda (f)
   (f f))
 (lambda (f)
   (lambda (n r)
     (if (<= n 10)
         ((f f)(+ n 1)(+ n r))
         r)))) 1 0)

;; in short ...
(((lambda (f)
    (lambda (n r)
      (if (<= n 10)
          ((f f)(+ n 1)(+ n r))
          r)))
  (lambda (f)
    (lambda (n r)
      (if (<= n 10)
          ((f f)(+ n 1)(+ n r))
          r))))
  1 0)

;; likes ...
((lambda (f n r)
   (if (<= n 10)
       (f f (+ n 1)(+ n r))
       r))
 (lambda (f n r)
   (if (<= n 10)
       (f f (+ n 1)(+ n r))
       r))
 1 0)

;; in short ...
(define f
  (lambda (f n r)
   (if (<= n 10)
       (f f (+ n 1)(+ n r))
       r)))
(f f 1 0)