June 2018 Update
This commit is contained in:
parent
ba8067c3b7
commit
22f33d4004
5278 changed files with 84726 additions and 14379 deletions
5
Task/Loops-While/Perl/loops-while-3.pl
Normal file
5
Task/Loops-While/Perl/loops-while-3.pl
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
my $n = 1024;
|
||||
until($n == 0){
|
||||
print "$n\n";
|
||||
$n = int $n / 2;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue