fork(1) download
copy 
  1. #!/usr/bin/perl
  2.  
  3. use feature 'say';
  4. use warnings;
  5. use strict;
  6.  
  7. sub primo{
  8. 	my $n =  shift;
  9. 	my $last_n = int ($n/2);
  10. 	my $res = 1;
  11. 	IN: for (my $i = 2; $i <= $last_n; $i++){
  12. 		my $p = $n/$i;
  13. 		if ($p == int $p){
  14. 			$res = 0;
  15. 			last IN;
  16. 		}
  17. 	}
  18. 	return $res;
  19. }
  20.  
  21. sub numgen{
  22. 	my $s = time();
  23. 	my $w = 1;
  24. 	while ($w == 1){
  25. 		if (($s/2) == int ($s/2)){($s = time())}  
  26. 		else{($w = 0)}
  27. 	}
  28. 	return $s;
  29. }
  30.  
  31. my $f_time = numgen();
  32. say "time: $f_time";
  33.  
  34. while (1){
  35. 	if (primo($f_time)){
  36. 		if ($f_time == reverse($f_time)){
  37. 			say "Palindromo Primo: $f_time";
  38. 			exit;
  39. 		}
  40. 		else{
  41. 			$f_time += 2;
  42. 		}
  43. 	}
  44. 	else{
  45. 		$f_time += 2;
  46. 	}
  47. }
  48.  
  49.  
Time limit exceeded #stdin #stdout 5s 3696KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/LjvMRz
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!