Anonymous user
Loops/While: Difference between revisions
no edit summary
No edit summary |
|||
Line 104:
$n >>= 1; # also acceptable: use integer; $n /= 2;
}</perl>
=={{header|Pop11}}==
<pre>
lvars i = 1024;
while i > 0 do
printf(i, '%p\n');
i div 2 -> i;
endwhile;
</pre>
=={{header|Python}}==
|