Loops/While: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,414: | Line 2,414: | ||
$i >>= 1; |
$i >>= 1; |
||
}</lang> |
}</lang> |
||
=={{header|Picat}}== |
|||
While loop |
|||
<lang Picat>go => |
|||
N = 1024, |
|||
while (N > 0) |
|||
println(N), |
|||
N := N // 2 |
|||
end.</lang> |
|||
Recursion |
|||
{{trans|Prolog}} |
|||
<lang Picat>go2 => |
|||
while_loop(1024). |
|||
while_loop(0) => true. |
|||
while_loop(N) => |
|||
println(N), |
|||
while_loop(N//2).</lang> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |