5月8日的电脑报上有一个小测试：
任何一个整数的立方都可以写成一串连续奇数的和。
想也没想，就写了：
use strict;
my $seed=<STDIN>;
$seed**=3;
my @stack=();
open(NKCS,'>c:/code/nkcs.txt');
for(my $init=1; $init<=$seed; $init+=2){
my $sum=$init;
my $temp=$init;
while($sum<$seed){
push(@stack,$temp);
$temp+=2;
$sum+=$temp;
}
if($sum==$seed){
while(@stack){print NKCS shift(@stack)."\n" ;}
close NKCS;
exit;
}
undef @stack;
}
close NKCS;
die("nkcs failed");