$ perl6 -e 'my $time = now.x; my @t; for 1..1000 -> $step { if (my $d = (my $t2 =
> now.x) - $time) > .25 { say $step => "#" x (20 * $d); push @t, $d }; $time = $t2
> }; say ([+] @t) / +@t; say (my &stddev)(@t) given &stddev = -> @x { sqrt( ([+]
> (@x X- my $mean) X** 2) / (@x-1) ) given $mean = ([+] @x) / @x }'
13      ############
49      ####################
86      ############
122     #############################
158     ################
196     #########################
232     ##################
268     #####################
305     #############
341     #######################
374     ###############
410     #############
447     #################
485     ####################
522     #################
558     #########################
594     ##################
631     #####################
666     ###################
700     ###############################
736     ##########################
772     ###################
808     ###################
845     ################################
882     ######################
918     ####################
954     ################
991     ########################
1.02844139507839
0.27266414627846

$ perl6 -e 'my $time = now.x; my @t; for 1..1000 -> $step { if (my $d = (my $t2 =
> now.x) - $time) > .25 { push @t, $d }; $time = $t2 }; say ([+] @t) / +@t; say
> (my &stddev)(@t) given &stddev = -> @x { sqrt( ([+] (@x X- my $mean) X** 2) /
> (@x-1) ) given $mean = ([+] @x) / @x }'
0.960657460348947
0.252716416971459

$ perl6 -e 'my $time = now.x; my @t; for 1..1000 { push @t, (my $t2 = now.x) -
> $time; $time = $t2 }; @t = grep { $_ > .25 }, @t; say ([+] @t) / +@t; say (my
> &stddev)(@t) given &stddev = -> @x { sqrt( ([+] (@x X- my $mean) X** 2) / (@x-1)
> ) given $mean = ([+] @x) / @x }'
0.993840182269061
0.286347859316353