|
(Scheme)
(define (next n) (* n n (+ n 1)))
(define (list-elements nr-of-elements n0 next)
(let list-elements ((i 0) (n n0))
(show i n)
(let ((i (add1 i)))
(if (< i nr-of-elements) (list-elements i (next n))))))
(define (show i n) (printf "N(~a)=~a~n~n" i n))
(list-elements 6 1 next)
|