세 자연수 a, b, c 가 피타고라스 정리 a2 + b2 = c2 를 만족하면 피타고라스 수라고 부릅니다 (여기서 a
아무 생각 없이 돌면서 구한다.
답은 빨리 나오니까 상관 없겠…지?
|
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; } } } |