Problem 69
Perl6
1my @primes = (1..*).grep(*.is-prime);
2my $ans = 1;
3for @primes -> $prime { last if $ans * $prime > 1_000_000 ; $ans *= $prime; }
4say $ansPerl6
1my @primes = (1..*).grep(*.is-prime);
2my $ans = 1;
3for @primes -> $prime { last if $ans * $prime > 1_000_000 ; $ans *= $prime; }
4say $ans