세 자연수 a, b, c 가 피타고라스 정리 a2 + b2 = c2 를 만족하면 피타고라스 수라고 부릅니다 (여기서 a < b < c ). 예를 들면 32 + 42 = 9 + 16 = 25 = 52이므로 3, 4, 5는 피타고라스 수입니다. a + b + c = 1000 인 피타고라스 수 a, b, c는 한 가지 뿐입니다. 이 때, a × b × c 는 얼마입니까?
아무 생각 없이 돌면서 구한다.
답은 빨리 나오니까 상관 없겠…지?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
#!/usr/bin/env perl use 5.010; use strict; use warnings; for my $i (1..1000) { for my $j (1..$i) { next if ($i+$j >= 1000); my $k = 1000 - ($i+$j); if ($i**2 == $j**2 + $k**2 and $i+$j+$k == 1000){ say $i*$j*$k; exit; } } } |