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

7 lines
169 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',`1',`5',`3',`x
')