13 lines
220 B
Text
13 lines
220 B
Text
|
(define $fs (map $1 $2))
|
||
|
|
|
||
|
|
(define $f1 (* $ 2))
|
||
|
|
(define $f2 (power $ 2))
|
||
|
|
|
||
|
|
(define $fsf1 (fs f1 $))
|
||
|
|
(define $fsf2 (fs f2 $))
|
||
|
|
|
||
|
|
(test (fsf1 {0 1 2 3}))
|
||
|
|
(test (fsf2 {0 1 2 3}))
|
||
|
|
(test (fsf1 {2 4 6 8}))
|
||
|
|
(test (fsf2 {2 4 6 8}))
|