Help for this page

Select Code to Download


  1. or download this
    perl -le 'sub a{my$c=pop;print $c;$c?$c*a($c-1):1}print a(--$ARGV[0])'
+ 5