13 lines
311 B
Text
13 lines
311 B
Text
(define (multifactorial n d)
|
|
(fold * 1 (iota (div n d) n (negate d))))
|
|
|
|
(for-each (lambda (i)
|
|
(display "Degree ")
|
|
(display i)
|
|
(display ":")
|
|
(for-each (lambda (n)
|
|
(display " ")
|
|
(display (multifactorial n i)))
|
|
(iota 10 1))
|
|
(print))
|
|
(iota 5 1))
|