Help for this page

Select Code to Download


  1. or download this
    C:\test>p1
$x = ['20110106', map( rand( 1e5 ), 1..4 ), int( rand 1000 ) ];;
...
53915.4052734375
11352.5390625
145
  2. or download this
    $y = join $;, @$x;;

...
53915.4052734375
11352.5390625
145
  3. or download this
    $z = pack 'c/A* d4 n', @$x;;

...
53915.4052734375
11352.5390625
145
  4. or download this
    #! perl -slw
use strict;
...
AoS 0.977/s   -- -52% -78%
AoP  2.05/s 110%   -- -53%
AoA  4.39/s 349% 114%   --