RosettaCodeData/Task/Partial-function-application/Oforth/partial-function-applicatio...

7 lines
112 B
Plaintext

: fs(s, f) f s map ;
: f1 2 * ;
: f2 sq ;
#f1 #fs curry => fsf1
#f2 #fs curry => fsf2