12 lines
220 B
Text
12 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}))
|