Select Code to Download

#! perl -slw
use strict;
...
[5 0 1 4]
2.38095238095238090e-2
  1 trial  of _default (    564us total), 564us/trial

P:\test>FET4 1e5 2e5 2e5 1e5
[1e5 2e5 2e5 1e5]
1.32499459649722560e-14760
  1 trial  of _default (  81.148s total), 81.148s/trial