Name: Anonymous 2010-11-26 0:56
PROVE ME WRONG.
(define make-loop ((lambda (f)
(lambda (c)
(lambda (o)
(lambda (g)
(lambda (h)
(lambda (i)
(lambda (j)
(when (g i j)
(h i)
(f c o g h (o i c) j)))))))))
(lambda (f)
(lambda (c)
(lambda (o)
(lambda (g)
(lambda (h)
(lambda (i)
(lambda (j)
(when (g i j)
(h i)
(f c o g h (o i c) j)))))))))))
(define make-linear-loop (make-loop 1))
(define make-linear-crescent-loop (make-linear-loop +))
(define make-print-function
(lambda (newline? print-func format-string)
(lambda (x)
(print-func (format format-string x))
(when newline?
(newline)))))
(define make-linear-crescent-print-loop-n->m (make-linear-crescent-loop (make-print-function #t display "~a")))
(define make-linear-crescent-print-loop-n->m-inclusive (make-linear-crescent-print-loop-n->m <=))
(define make-linear-crescent-print-loop-1->n-inclusive (make-linear-crescent-print-loop-n->m-inclusive 1))
(define make-linear-crescent-print-loop-1->100-inclusive (make-linear-crescent-print-loop-1->n-inclusive 100))