challenges

my solutions to various "programming challenge" problems
git clone https://wehaveforgeathome.hates.computer/challenges.git
Log | Files | Refs | LICENSE

020.pl (263B)

      1 #!/usr/bin/perl
      2 
      3 use strict;
      4 use warnings;
      5 use bignum;
      6 use List::Util qw(sum);
      7 
      8 my $n = 100;
      9 my $n_factorial = 1;
     10 for (my $i = 1; $i <= $n; $i++) {
     11   $n_factorial *= $i;
     12 }
     13 my $string = "$n_factorial";
     14 my $sum = sum(map(int, split('', $string)));
     15 
     16 print "$sum\n";