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
Perl
Hello
hashes
Price_supriya
matrx travarsal
perl circle plot
Perl Lang
Supriya
121JHgZzG4QMkDQwLJCifHAAsZAwvpqACY
Toy singleton class