Search found 5 matches
- Thu Nov 19, 2009 2:35 pm
- Forum: Challenges Solved
- Topic: Telecran
- Replies: 24
- Views: 2084
- Thu Nov 05, 2009 12:43 am
- Forum: Challenges Solved
- Topic: Delegates
- Replies: 17
- Views: 2196
- Wed Nov 04, 2009 3:11 am
- Forum: Challenges Solved
- Topic: Pi Hates Nines
- Replies: 26
- Views: 3368
Perl
$pstr contains the first million digits of pi. The rest is pretty self explanatory.
Code: Select all
my @seq = split(/9/, $pstr);
my $idxmax = 0;
$seq[$idxmax] > $seq[$_] or $idxmax =$_ for 1 .. $#seq;
print $seq[$idxmax], "\n";
- Tue Nov 03, 2009 6:31 pm
- Forum: Challenges Solved
- Topic: Delegates
- Replies: 17
- Views: 2196
- Mon Nov 02, 2009 10:57 pm
- Forum: Challenges Solved
- Topic: Valuation
- Replies: 103
- Views: 9436