sub triang_decompose_1 { my($goal, $found, $n0, $n1, $n2); for $goal (0 .. 80) { $found = 0; for $n0 (0 .. 12) { for $n1 (0 .. 12) { for $n2 (0 .. 12) { if ($goal == $n0*($n0+1)/2 + $n1*($n1+1)/2 + $n2*($n2+1)/2 && !$found) { say $goal, " = ", $n0*($n0+1)/2, " + ", $n1*($n1+1)/2, " + ", $n2*($n2+1)/2; $found = 1; } } } } } }