- 论坛徽章:
- 0
|
本帖最后由 yigenjin 于 2010-09-10 20:18 编辑
- #!/usr/bin/perl
- #
- use strict;
- use warnings;
- my $m = shift || exit;
- sub go {
- my $b = shift || return 0;
- return 0 unless $b >= 3;
- return int($b / 3) + go(int($b / 3) + $b % 3);
- }
- print $m + go $m, "\n";
复制代码 允许借1个的话加一行即可
- #!/usr/bin/perl
- #
- use strict;
- use warnings;
- my $m = shift || exit;
- sub go {
- my $b = shift || return 0;
- return 1 if $b == 2;
- return 0 unless $b >= 3;
- return int($b / 3) + go(int($b / 3) + $b % 3);
- }
- print $m + go $m, "\n";
复制代码 哥SHOW一段烂perl代码... |
|