7 lines
156 B
Perl
7 lines
156 B
Perl
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
use Benchmark;
|
|
my $howmany = 10000;
|
|
my $what = q/my $j=1; for (1..100) {$j*=$_}/;
|
|
timethis($howmany, $what); |