经典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;
}