Loops/While: Difference between revisions

Content added Content deleted
mNo edit summary
Line 1,952:
jn 0
pop exit</lang>
 
=={{header|XLISP}}==
<lang xlisp>(DEFINE I 1024)
 
(WHILE (>= I 1)
(PRINT I)
(DEFINE I (/ I 2)))</lang>
 
=={{header|XPL0}}==
Retrieved from "https://rosettacode.org/wiki/Loops/While"