一道趣味题(1 位领导批示)-银子 ’s 博客-工作手记

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

2008-08-27
分类：Other, Perl
作者：银子
3,245 位领导视察

原贴地址: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的思路类似.

#!/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;
}

NOTE：本博内容大部分为原创，转载请注明出处。
永久链接：http://www.zdyi.com/one-gout-problem/116

移驾其它地方视察

1

过路人 2008-09-20 上午 3:27 曰:
用python实现也很简单：

def ageSum(age):
tmpsum=0;retsum=0
for i in str(age):
tmpsum=tmpsum+int(i)
for i in str(tmpsum):
retsum=retsum+int(i)
return retsum

print ageSum(19820718)