RosettaCodeData/Task/Loops-Downward-for/M4/loops-downward-for.m4
2023-07-01 13:44:08 -04: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
')