Help for this page

Select Code to Download

Select or download this

use Inline C;

...
            mXPUSHi(i), n++;
    Inline_Stack_Return(n);
}

Select or download this

Benchmark: running C, perl for at least 3 CPU seconds...
         C:  3 wallclock secs ( 3.17 usr +  0.00 sys =  3.17 CPU) @ 37
+9.18/s (n=1202)
      perl:  3 wallclock secs ( 3.17 usr +  0.00 sys =  3.17 CPU) @ 43
+.22/s (n=137)