主題: 有人看的懂這在寫甚麼嗎?可以幫我解答他如何用手算嗎?

[p8853]

use strict;
my $limit = 21;
while (<>) {
    chomp;
    die "$_: 請輸入十碼如 0000000000" unless /^(\d{2})\d{8}$/;
    die "$_: 前 \"$1\" 大於 $limit" if $1 > $limit;
    my ( $c, $f );
    for ( split '' ) { map $c += $_, split '', $_ * ( 1 + ( $f = !$f ) ) }
    printf "$_%d\n", $c % 10;
}

[日京三子]

把指令丟進google就會知道所使用的語言，與大致的意義為何...

[HaWay]

好像是什麼數學級數. 我數學不好, 幫不了你

代碼: [選擇]

1122334455 <= input
_: 1, c:2 , f:1
_: 1, c:3 , f:
_: 2, c:7 , f:1
_: 2, c:9 , f:
_: 3, c:15 , f:1
_: 3, c:18 , f:
_: 4, c:26 , f:1
_: 4, c:30 , f:
_: 5, c:31 , f:1
_: 5, c:36 , f:
11223344556 <= output
1133557799 <= input
_: 1, c:2 , f:1
_: 1, c:3 , f:
_: 3, c:9 , f:1
_: 3, c:12 , f:
_: 5, c:13 , f:1
_: 5, c:18 , f:
_: 7, c:23 , f:1
_: 7, c:30 , f:
_: 9, c:39 , f:1
_: 9, c:48 , f:
11335577998 <= output