【perl6】挑戰(zhàn)最短代碼 --- 漢字?jǐn)?shù)值轉(zhuǎn)阿拉伯?dāng)?shù)字

komicakomica

說(shuō)明：
同時(shí)支持簡(jiǎn)繁體（羅馬數(shù)字、用圈框起來(lái)的數(shù)字也可以，但'兩'字不支持）
最多可以處理千萬(wàn)億級(jí)數(shù)字
不使用第三方庫(kù)
不支持小數(shù)部分
函數(shù)返回結(jié)果給調(diào)用者

函數(shù)體部分一共345個(gè)字符

下面上代碼

1. sub chnToNum($i) {my ($r,$t,$f,$l,$n)=<0 0 0 0 10000>;$i.subst(/零|\〇/,'',:g).split(/<?after 億|萬(wàn)|千|百|(zhì)十|億|萬(wàn)|仟|佰|什>/).grep({.chars}).map({given $_ {when (($l,$f)=.substr($_.chars-1).unival,$_.substr(0,1).unival)[0]==$n {$r=(($t=(($_.chars>1)*$f+$r))%$n+($t-$t%$n)/$n)*$l}
   
2. when $l==10**8 {$r=(($_.chars>1)*$f+$r)*$l}
   
3. default {$r+=[*] $_.comb(/./).map: *.unival}}});$r}

復(fù)制代碼

測(cè)試代碼

1. say chnToNum("九千零二");
   
2. say chnToNum("七萬(wàn)四千⑵百〇㈤");
   
3. say chnToNum("三億一千Ⅴ百二十萬(wàn)四千五百九十Ⅶ");
   
4. say chnToNum("八千九百四十七萬(wàn)二千三百肆什二億五千六百柒十叁萬(wàn)捌千九百〇一");
   
5. prompt "exit";

復(fù)制代碼

結(jié)果依次是：
9002
74205
315204597
8947234256738901

patagonia2

Newbie
牛屄

支持牛屄

MMMIX

其實(shí)反過(guò)來(lái)轉(zhuǎn)換更有用處。

ba_du_co

回復(fù) 1# komicakomica
212個(gè)字符

1. sub h2a {
   
2.     my ($r, $n) = 0, 10000;
   
3.     for $^i.trans('零〇' => '')
   
4.         .split(/<?after 億|萬(wàn)|千|百|(zhì)十|億|萬(wàn)|仟|佰|什>/)
   
5.         .grep(~*) {
   
6.             my @c = .comb.map: *.unival;
   
7.             my ( $l, $t ) = @c[*-1], ?@c[1] * @c[0] + $r;
   
8.             $r = $l == $n
   
9.                 ?? ($t % $n * 9999 + $t) / $n * $l
   
10.                 !! $l > $n ?? $t * $l !! $r + [*] @c
    
11.     }
    
12.     $r
    
13. }
    

復(fù)制代碼

ba_du_co

回復(fù) 1# komicakomica

150個(gè)字符

1. sub T {
   
2.     my ( $a, $b, $c, @d ) = 0 xx 3;
   
3.     0 < $_ < 10
   
4.       ?? ( @d[ $a + $b ] = $_ )
   
5.       !! ( $a = .chars - 1;
   
6.            $b += $c if $a < $c;
   
7.            $b  = 0  if $a > $b;
   
8.            $c  = $a
   
9.     ) for $^e.flip.comb.map(*.unival);
   
10.     ( $_ || 0 for @d ).join.flip
    
11. }
    

復(fù)制代碼

komicakomica

回復(fù) 5# ba_du_co

鼓掌
   

104359176

最短代碼不是最簡(jiǎn)潔代碼，最短的代碼就是：

1. 我出100，誰(shuí)寫？

復(fù)制代碼

komicakomica

回復(fù) 5# ba_du_co

還可以縮短24個(gè)字符

1. sub T {
   
2.     my @d;$/=[];
   
3.     0 <$_ < 10
   
4.       ?? ( @d[ $0 + $1 ] = $_ )
   
5.       !! ( $0 = .chars - 1;
   
6.            $1 += $2 if $0 < $2;
   
7.            $1  = 0  if $0 > $1;
   
8.            $2  = $0
   
9.     ) for $^e.flip.comb.map(*.unival);
   
10.     [R~] @d X//0
    
11. }

復(fù)制代碼

ba_du_co

回復(fù) 1# komicakomica

117

gfa024fe

1. sub T {
   
2.     my int ( $a, $b, @c );
   
3.     $_ % 10
   
4.         ?? ( @c[ $a + $b ] = $_ )
   
5.         !! ( my \d = .comb - 1;
   
6.              $a += $b *= d < $b;
   
7.              $a *= d < $a, $b = d
   
8.     ) for [R,] $^e.comb>>.unival;
   
9.     [R~] @c
   
10. }
    

復(fù)制代碼

komicakomica

回復(fù) 9# ba_du_co

1. for [R,] $^e.comb>>.unival;

復(fù)制代碼

這里面的">>"可以改成Unicode字符"»"。
不介意警告的話，第一句的變量聲明可以改用

1. my int@c;$/=[];

復(fù)制代碼

然后用$0和$1分別替換$a和$b，又可以減少三個(gè)字符。