6 lines
112 B
Forth
6 lines
112 B
Forth
: fs(s, f) f s map ;
|
|
: f1 2 * ;
|
|
: f2 sq ;
|
|
|
|
#f1 #fs curry => fsf1
|
|
#f2 #fs curry => fsf2
|