RosettaCodeData/Task/Currying/Factor/currying-3.factor

5 lines
95 B
Factor

IN: scratchpad { 1 2 3 4 5 } [ 1 + ] { 2 / } append map
--- Data stack:
{ 1 1+1/2 2 2+1/2 3 }