First-class functions/Use numbers analogously: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Factor
Line 469: Line 469:
(define m 0.5)
(define m 0.5)
(define (go n1 n2)
(define (go n1 n2)
(if (not (or (null? n1)
(for-each (lambda (n1 n2)
(null? n2)))
(display ((multiplier n1 n2) m))
(begin (display ((multiplier (car n1) (car n2)) m))
(newline))
(newline)
n1 n2))
(go (cdr n1) (cdr n2)))))

(go number inverse)</lang>
(go number inverse)</lang>
Output:
Output:
Retrieved from "https://rosettacode.org/wiki/First-class_functions/Use_numbers_analogously"