fork(1) download
copy 
  1. #!/usr/bin/perl
  2. use 5.016;
  3. use warnings;
  4.  
  5. sub f {
  6. 	my ($n) = @_;
  7. 	my %memo;
  8. 	my @cube;
  9.  
  10. 	my $i = 1;
  11. 	while(1){
  12. 		$cube[$i] = $i ** 3;
  13. 		foreach my $j (1 .. $i - 1){
  14. 			my $t = $cube[$i] + $cube[$j];
  15. 			if (exists $memo{$t}){
  16. 				--$n or return ($i, $j, @{$memo{$t}}, $t);
  17. 			}
  18. 			$memo{$t} = [$i, $j];
  19. 		}
  20. 		$i++;
  21. 	}
  22. }
  23.  
  24. printf("%d^3 + %d^3 = %d^3 + %d^3 = %d\n", f(2));
  25.  
Success #stdin #stdout 0s 6176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
16^3 + 2^3 = 15^3 + 9^3 = 4104
https://ideone.com/dnE9Yq
language:
Perl (perl 5.28.1)
created:
9 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!