Select Code to Download

C:\Users\Laurent>perl -E "my $c = 1; my $start = time; while (1) { $c+
++; last if (2 * $c ) > 50000000 ; }; say time - $start; say $c"
4
...
C:\Users\Laurent>perl6 -e "my int $c = 1; my $start = time; while (1) 
+{ $c++; last if (2 * $c ) > 50000000 ; }; say time - $start; say $c"
9
25000001

C:\Users\Laurent>perl6 -e "my int $c = 1; my $start = now; while (1) {
+ $c++; last if (2 * $c ) > 50000000 ; }; say now - $start; say $c"
8.9252329
25000001