Anonymous user
Loops/While: Difference between revisions
→{{header|Scheme}}: ++ sather
m (Unicon/Icon consistency 2) |
(→{{header|Scheme}}: ++ sather) |
||
Line 580:
i /= 2
end</lang>
=={{header|Sather}}==
<lang sather>class MAIN is
main is
i ::= 1024;
loop while!(i > 0);
#OUT + i + "\n";
i := i / 2;
end;
end;
end;</lang>
=={{header|Scheme}}==
| |||