Loops/While: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl}}: migrate content from Loop Structures)
(add UNIX Shell)
Line 487: Line 487:
set i [expr {$i / 2}]
set i [expr {$i / 2}]
}</lang>
}</lang>

=={{header|UNIX Shell}}==
{{works with|Bourne Again SHell}}
<lang bash>x=1024
while [[ $x -gt 0 ]]; do
echo $x
x=$(( $x/2 ))
done</lang>


=={{header|UnixPipes}}==
=={{header|UnixPipes}}==
(echo 1024>p.res;tail -f p.res) | while read a ; do
<lang sh> (echo 1024>p.res;tail -f p.res) | while read a ; do
test $a -gt 0 && (expr $a / 2 >> p.res ; echo $a) || exit 0
test $a -gt 0 && (expr $a / 2 >> p.res ; echo $a) || exit 0
done
done</lang>



=={{header|V}}==
=={{header|V}}==
1024 [0 >] [
<lang v> 1024 [0 >] [
dup puts
dup puts
2 / >int
2 / >int
] while
] while</lang>


=={{header|Vedit macro language}}==
=={{header|Vedit macro language}}==