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
Simple Perl Interview Question
Shalu Kumar
Array_with_shift_function
Password Validation
101734
Compare Versions
neigh.pl
Interpolation_with_case_sensitive
Perl
Toy singleton class