Select Code to Download

package Loop_unroll;

...

1;

#!/usr/bin/perl -w

...
    return $_[0]*fact($_[0]-1);
}

package Recur_unroll;
...

1;