RosettaCodeData/Task/Loops-Downward-for/M4/loops-downward-for.m4
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

7 lines
172 B
Text

define(`for',
`ifelse($#,0,``$0'',
`ifelse(eval($2 $3),1,
`pushdef(`$1',$2)$5`'popdef(`$1')$0(`$1',eval($2+$4),$3,$4,`$5')')')')dnl
for(`x',`10',`>=0',`-1',`x
')