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

4 lines
95 B
Factor

MACRO: pre ( quot -- quot ) 1 cut swap [ 0 ] dip reduce 1quotation ;
[ + 1 2 3 4 5 ] pre ! 15