一道趣味题(1 位领导批示)

  • 2008-08-27
  • 分类：Other, Perl
  • 作者：银子
  • 2,604 位领导视察

原贴地址:http://bbs.blueidea.com/thread-2881919-1-1.html

题目：首先把你的生日列出来 比如 1987 12 25
然后一位位的相加 1+9+8+7+1+2+2+5=35
把得出的数字再拆分 再加 3＋5＝8
最后向屏幕输出：8
19871225可看作字符型也可以看作整型，想怎么看就怎么看，不限。

我用perl写了一个函数..思路与其它人用js.vbs.php的思路类似.

?View Code PERL
1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl
use strict;
print &ageSum('19841007');
sub ageSum
{
    my $age = shift();
    my @age = split('',$age);
    my $sum = 0;
    foreach my $v (@age)
    {
        $sum += int($v);
    }
    $sum > 9 ? ageSum($sum) : return $sum;
}
Tags :
1 位领导批示

随机显示的10篇日志

评论最多的10篇日志

浏览最多的10篇日志