- 846 名前：デフォルトの名無しさん mailto:sage [2008/06/10(火) 04:39:15 ]
- >>239
PerlとGaucheで書いてみた
sub yakusuu {
my $x=shift;
my @y;
for (my $i=2;$i<$x;$i++) {
if (($x % $i)==0) {push @y,$i}
}
return @y;
}
print yakusuu(100);
sub yakusuu2 {
my $x=shift;
return grep {(($x % $_)==0) ? $_ : 0} (2..$x-1);
}
print yakusuu2(100);
