fork download
copy 
  1. #!/usr/bin/perl
  2. use 5.016;
  3. use warnings;
  4.  
  5. sub gcd { $_[1] ? gcd($_[1], $_[0] % $_[1]) : $_[0] }
  6. sub lcm { $_[0] * $_[1] / gcd($_[0], $_[1]) }
  7.  
  8. sub f {
  9. 	my ($p, $q, $e) = @_;
  10.  
  11. 	my $lcm = lcm($p - 1, $q - 1);
  12.  
  13. 	my @rca = map{ $_ / $e }
  14. 		grep{ !($_ % $e) && ($_ != $e) }
  15. 		map{ $_ * $lcm + 1 } (1 .. $p * $q);
  16.  
  17. 	return $rca[0];
  18. }
  19.  
  20. say join ' ', f(map{ <STDIN> }(1 .. 3));
Success #stdin #stdout 0s 3692KB
comments (?)
stdin
copy 
5
7
13
stdout
copy 
13
https://ideone.com/7kt72X
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!