euler 40

40.pl

my $s = "";
foreach my $n ((0..300000)) {
    $s=$s.$n;
    
    if (length $s > 1000000) {
        last;
    }
}


my @l = split //, $s;
my $result = $l[1] * $l[10] * $l[100] * $l[1000] * $l[10000] * $l[100000] * $l[1000000];

print "$result \n";

40.py

s=""
for n in range(0, 300000):
   s=s+str(n)
   
   if (len(s) > 1000000):
        break


r = int(s[1]) * int(s[10]) * int(s[100]) * int(s[1000]) * int(s[10000]) * int(s[100000]) * int(s[1000000])
print(r)

40.rb

s=""
(0..300000).each do |n|
  s=s+n.to_s()
  
  if (s.size > 1000000)
    break
  end
end

puts s

r=s[1].to_i * s[10].to_i * s[100].to_i * s[1000].to_i * s[10000].to_i * s[100000].to_i * s[1000000].to_i
puts r