June 2018 Update

Task/Loops-While/Perl/loops-while-1.pl

@@ -1,5 +1,5 @@
 my $n = 1024;
-while ($n) {
+while($n){
     print "$n\n";
     $n = int $n / 2;
 }

Task/Loops-While/Perl/loops-while-2.pl

@@ -1,5 +1,3 @@
-my $n = 1024;
-until ($n <= 0) {
+for(my $n = 1024; $n > 0; $n >>= 1){
     print "$n\n";
-    $n = int $n / 2;
 }

Task/Loops-While/Perl/loops-while-3.pl

@@ -0,0 +1,5 @@
+my $n = 1024;
+until($n == 0){
+    print "$n\n";
+    $n = int $n / 2;
+}