Select Code to Download

sub factorial{ 
    $_[ 0 ] < 171 
...
     ] ) [  $_[ 0 ] ]
     : '#INF';
 }

use constant FACTORIALS => qw[
     0 1 2 6 24 120 720 5040 40320 362880 3628800 39916800 479001600 6
+227020800
...
];
     
sub factorial{ $_[ 0 ] < 171 ? (FACTORIALS)[  $_[ 0 ] ] : '#INF'; }