RosettaCodeData/Task/Loops-While/M4/loops-while.m4
2023-07-01 13:44:08 -04:00

8 lines
112 B
Text

divert(-1)
define(`loop',
`ifelse(eval(0 < ($1)),1,`$1`
'loop(eval(($1) / 2))')')
divert`'dnl
loop(1024)dnl