square-sum-1128.pl

output.txt

2^2 + 10^2 + 32^2 = 1128
2^2 + 32^2 + 10^2 = 1128
10^2 + 2^2 + 32^2 = 1128
10^2 + 32^2 + 2^2 = 1128
14^2 + 16^2 + 26^2 = 1128
14^2 + 26^2 + 16^2 = 1128
16^2 + 14^2 + 26^2 = 1128
16^2 + 26^2 + 14^2 = 1128
26^2 + 14^2 + 16^2 = 1128
26^2 + 16^2 + 14^2 = 1128
32^2 + 2^2 + 10^2 = 1128
32^2 + 10^2 + 2^2 = 1128

square-sum-1128.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $MAX_NUMBER = 1128;
my $BIRTHDAY   = 1128;

for my $x (1..$MAX_NUMBER) {
    for my $y (1..$MAX_NUMBER) {
        for my $z (1..$MAX_NUMBER) {
            my $sum = $x**2 + $y**2 + $z**2;
            if ( $sum == $BIRTHDAY ) {
                print "$x^2 + $y^2 + $z^2 = $BIRTHDAY\n";
            }
        }
    }
}