Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Challenge 41 Task 1
#perl 5.22.1 %isPrime=(2=>1,3=>1,5=>1,7=>1,11=>1); @factorsFound; sub attractive{ } sub primefactors{ my $number=shift; for (2..int(sqrt($number)){ } } sub nextFactor{ my ($number,$lf))=@_; $lf++; for ($lf..sqrt($number)){ return unless ($number % $_) } } sub isPrime{ return $isPrime{shift} }
run
|
edit
|
history
|
help
0
Hello
perl plot circular list in a circle
hashes
Cloeren 4 Coding
Perl
Reference
Riyali-101738
Perl
size_of_array
Attractive Numbers