http://www.perlmonks.org?node_id=1057416

Public Scratchpad

Download, Select Code To D/L

---

100% Attitude

use bigint;
my @M = (1);
for my $i (0..99) { $M[$i+$_] += $M[$i] for 1..26 }
print $M[100];
[download]

---