Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Perl circular list
size_of_array
101772
testing dereference of anonymous routines
Hash-Nevil
doctor
Aishwarya 101701
Compare Versions
Prac 2 #2
5_5
Please log in to post a comment.