作者 主題: 有人看的懂這在寫甚麼嗎?可以幫我解答他如何用手算嗎?  (閱讀 6217 次)

0 會員 與 1 訪客 正在閱讀本文。

p8853

  • 可愛的小學生
  • *
  • 文章數: 15
    • 檢視個人資料
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;
}

日京三子

  • 全區板主
  • 俺是博士!
  • *****
  • 文章數: 8830
    • 檢視個人資料
    • http://www.24online.cjb.net
把指令丟進google就會知道所使用的語言,與大致的意義為何...
哈克不愛的多合一輸入平台----->新香草口味
過去的時間不斷流逝,抹去的眼淚已成追憶;
乾枯的雙手無力阻止,再會了我遠去的曾經。

HaWay

  • 大隻佬!
  • 老人組
  • 俺是博士!
  • *****
  • 文章數: 3980
    • 檢視個人資料
好像是什麼數學級數. 我數學不好, 幫不了你
代碼: [選擇]
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
我做人那麼 nice, 肯定有什麼誤會.....