RosettaCodeData/Task/Loops-Do-while/MUMPS/loops-do-while.mumps

9 lines
122 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
DOWHILELOOP
2020-02-17 23:21:07 -08:00
set val = 0
do {
set val = val + 1
write val,!
} while ((val # 6) '= 0)
quit