RosettaCodeData/Task/Inverted-syntax/Factor/inverted-syntax-1.factor

5 lines
140 B
Factor

1 1 + ! 2
[ + 1 1 ] reverse call ! 2
{ 1 2 3 4 5 } [ sq ] map ! { 1 4 9 16 25 }
[ map [ sq ] { 1 2 3 4 5 } ] reverse call ! { 1 4 9 16 25 }