Anonymous user
Loops/While: Difference between revisions
Added Maple implementation
(Added BBC BASIC) |
(Added Maple implementation) |
||
Line 500:
n = math.floor(n/2)
end
</lang>
=={{header|Maple}}==
To avoid generating an infinite sequence (1/2, 1/4, 1/8, 1/16, etc.) of fractions after n takes the value 1, we use integer division (iquo) rather than the solidus operation (/).
<lang Maple>
> n := 1024: while n > 0 do print(n); n := iquo(n,2) end:
1024
512
256
128
64
32
16
8
4
2
1
</lang>
|