2016-12-19から1日間の記事一覧

perlの()

最近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>…