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