RosettaCodeData/Task/Loops-While/Mathematica/loops-while.math

6 lines
53 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
i = 1024;
While[i > 0,
Print[i];
i = Floor[i/2];
]