Help for this page

Select Code to Download

Select or download this

sub buk {
    my( $str ) = @_;
...
    }
    return \@b;
}

Select or download this

C:\test>1176081 -WIDTH=999 -HEIGHT=999
yr() took 329.728896
...
C:\test>1176081 -WIDTH=2000 -HEIGHT=2000
yr() took 10265.728694
buk() took 5.976180