Anonymous user
First-class functions/Use numbers analogously: Difference between revisions
First-class functions/Use numbers analogously (view source)
Revision as of 09:00, 12 November 2009
, 14 years agoAdded Scheme
(Added Scala) |
(Added Scheme) |
||
Line 227:
(6,000000 * 0,166667)(0,500000) = 0,500000
</lang>
=={{header|Scheme}}==
This implementation closely follows the Scheme implementation of the [[First-class functions]] problem.
<lang scheme>(define x 2.0)
(define xi 0.5)
(define y 4.0)
(define yi 0.25)
(define z (+ x y))
(define zi (/ (+ x y)))
(define number (list x y z))
(define inverse (list xi yi zi))
(define (multiplier n1 n2) (lambda (m) (* n1 n2 m)))
(define m 0.5)
(define (go n1 n2)
(if (not (or (null? n1)
(null? n2)))
(begin (display ((multiplier (car n1) (car n2)) m))
(newline)
(go (cdr n1) (cdr n2)))))
(go number inverse)</lang>
Output:
0.5
0.5
0.5
=={{header|Slate}}==
|