最近Perl勉強しています.楽しいです. 今日の発見なんですが #!/usr/bin/env perl use strict; use warnings; chomp (my $input = <STDIN>); sub reject{ my $number = @_; if ($number == 0) { $number =1; } else { $number *= &reject($number-1); } } print re</stdin>…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。