Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
    "sub S ($) { return $_[0] + print 0+@{$_[0]}, ' elements in ', 0+$_[0]
    +; }
    ...
    0 elements in 7450732
    1 elements in 30219348
    74507333021934933