RosettaCodeData/Task/Time-a-function/Perl-6/time-a-function.pl6

4 lines
57 B
Raku
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
my $start = now;
(^100000).pick(1000);
say now - $start;