Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Cheat attractive
#perl 5.22.1 use feature 'say'; my @samplePrimes= (2,3,5,7); my %attractive=(); foreach my $p1 (@samplePrimes){ foreach my $p2 (@samplePrimes){ $attractive{$p1*$p2}=1; foreach my $p3(@samplePrimes){ $attractive{$p1*$p2*$p3}=1; } } } say foreach (sort {$a <=> $b} keys %attractive)
run
|
edit
|
history
|
help
0
Lol
Perl logo
PRAC 2 #5
Perl
Hash
Perl
array_value
roni leonita 101745
version check
Hello