Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...

printf "Modify array in-place: Rate: %.9f\n", ( $stop - $start ) / ( 1
+e6 * $ARGV[ 0 ] );
exit;

Select or download this

C:\test>Monkeys 1
stack->array assign:   Rate: 0.000011359
...
C:\test>Monkeys 100
stack->array assign:   Rate: 0.000000365
Modify array in-place: Rate: 0.000000030