經典C程序100例-003

題目：一個整數，它加上100後是一個徹底平方數，再加上168又是一個徹底平方數，請問該數是多少？

    程序分析：在10萬之內判斷，先將該數加上100後再開方，再將該數加上268後再開方，若是開方後的結果知足以下條件，便是結果。

#!/usr/bin/perl
use strict;
use warnings;
# perl 不像 C 語言能夠方便地用 int 來整，須要換招

my $num = 0;
my ($i, $j);
while ($num < 100_000) {
	$i = sqrt($num + 100);
	$j = sqrt($num + 268);
	if ($i =~ /^\d+$/) {  # 直接判斷是否是整數
		if ($j =~ /^\d+$/) {
			print "$num\n";
		}
	}
	++$num;
}