6 lines
157 B
Text
6 lines
157 B
Text
/# Rosetta Code problem: https://rosettacode.org/wiki/Loops/While
|
|
by Galileo, 11/2022 #/
|
|
|
|
include ..\Utilitys.pmt
|
|
|
|
1024 dup while dup ? 2 / int dup endwhile
|