mush新手求助

vase

我也手痒...
写个perl 的发出来

1. use strict;
   
2. 
   
3. 
   
4. my %point = (
   
5.     "万" => 5,
   
6.     "亿" => 9
   
7. );
   
8. 
   
9. 
   
10. my %base = (
    
11.     "千" => 4,
    
12.     "百" => 3,
    
13.     "十" => 2
    
14. );
    
15. 
    
16. my %num = (
    
17.     "零" => 0,
    
18.     "一" => 1,
    
19.     "二" => 2,
    
20.     "三" => 3,
    
21.     "四" => 4,
    
22.     "五" => 5,
    
23.     "六" => 6,
    
24.     "七" => 7,
    
25.     "八" => 8,
    
26.     "九" => 9
    
27. );
    
28. my $utf8CharBit = 3;
    
29. 
    
30. my @digits = ();
    
31. my $number = "三千七百八十四万六千一百二十五";
    
32. 
    
33. 
    
34. print getLessThanOneHundredMillionNumber("一万三千零四十五");
    
35. 
    
36. # 比一亿小
    
37. sub getLessThanOneHundredMillionNumber{
    
38.     my ($chineseNumber) = @_;
    
39.     my ($first, $second) = split "万", $chineseNumber;
    
40.     my @digits;
    
41.     my $firstDigits = getLessThanTenThousandNumber($first);
    
42.     push @digits, @$firstDigits;
    
43.     my $secondDigits = getLessThanTenThousandNumber($second);
    
44.     push @digits, @$secondDigits;
    
45. 
    
46.     return (sprintf "%d" x 8 . "\n", @digits) + 0;
    
47. }
    
48. 
    
49. # 比一千小
    
50. sub getLessThanTenThousandNumber{
    
51.     my ($chineseNumber) = @_;
    
52.     my @digits;
    
53.     my $thuIndex = index $chineseNumber, "千";
    
54.     my $hunIndex = index $chineseNumber, "百";
    
55.     my $tenIndex = index $chineseNumber, "十";
    
56. 
    
57.     push @digits, ($thuIndex > 0) ? $num{substr $chineseNumber, 0, $thuIndex} : 0;
    
58.     push @digits, ($hunIndex > 0) ? $num{substr $chineseNumber, $hunIndex - $utf8CharBit, $utf8CharBit} : 0;
    
59.     push @digits, ($tenIndex > 0) ? $num{substr $chineseNumber, $tenIndex - $utf8CharBit, $utf8CharBit} : 0;
    
60.     push @digits, $num{substr $chineseNumber, length ($chineseNumber) - $utf8CharBit};
    
61. 
    
62.     #printf "%d" x 4 . "\n", @digits;
    
63.     return \@digits;
    
64. }

复制代码

killunix

用sauron的那个就对了，写的既简单又好用

dgda

原帖由 lzkd 于 2010-5-19 12:11 PM 发表


你这个不是已经出来了吗？最后再差一点就是。
你把那个算式整成
sqian = tonumber(sqian1)*tonumber(sqian2) + tonumber(sqian3)*tonumber(sqian4) + ......

就可以了

我就是这个想法，可我不会弄

你提的sqian1一直到sqian...是怎么来的啊？

lzkd

1. 上面我写的，只能--->sqian="3*10000000+7*1000000+8*100000+4*10000+6*1000+1*100+2*10+5"

复制代码

就是把你这个，拼出来的时候，加上那个函数，不就可以了？

lzkd

看见n多人show，我也有点心痒了，等我回家也show一个。嘻。。。。看起来，很好玩的样子

zgbl

我觉得用462都可以写得出来……

lzkd

这个是从helllua里扒出来的.看大家都发,我也手痒,发一个玩玩
这个代码,不负责解答,看的明白就明白,看不明白就不明白

1. 
   
2. _nums={}
   
3. _nums["一"]=1
   
4. _nums["二"]=2
   
5. _nums["三"]=3
   
6. _nums["四"]=4
   
7. _nums["五"]=5
   
8. _nums["六"]=6
   
9. _nums["七"]=7
   
10. _nums["八"]=8
    
11. _nums["九"]=9
    
12. 
    
13. ctonum=function(str)
    
14. if (#str % 2) ==1 then
    
15.   return 0
    
16. end
    
17. result=0
    
18. wan=1
    
19. unit=1
    
20. for i=#str -2 ,0,-2 do
    
21.   char=string.sub(str,i+1,i+2)
    
22.   if (char=="十") then
    
23.    unit=10*wan
    
24.    if (i==0) then
    
25.     result=result+unit
    
26.    elseif _nums[string.sub(str,i-1,i)]==nil then
    
27.     result=result+unit
    
28.    end
    
29.   elseif (char=="百") then
    
30.    unit=100*wan
    
31.   elseif (char=="千") then
    
32.    unit=1000*wan
    
33.   elseif (char=="万") then
    
34.    unit=10000*wan
    
35.    wan=10000
    
36.   else
    
37.    if _nums[char]~=nil then
    
38.     result=result+_nums[char]*unit
    
39.    end
    
40.   end
    
41. end
    
42. return result
    
43. end
    
44. itemnumre=rex.new("(((零|一|二|三|四|五|六|七|八|九|十|百|千|万)*)(位|支|颗|个|把|只|粒|张|枚|件|柄|根|块|文|两|碗|滴)){0,1}(.*)")
    
45. 
    

复制代码

dgda

lzkd这个狠啊，呵呵，看不是太懂，慢慢看了

lzkd

原帖由 dgda 于 2010-5-19 06:05 PM 发表
lzkd这个狠啊，呵呵，看不是太懂，慢慢看了

主要是我自己也不懂,呵呵,见笑了.
不过,算法这个东西,我还没本事说清楚,偶是文科生来的

dgda

论坛里搜索到了mapper以前弄的lua的代码了

太强了，搞了半天，我做了个无用功，呵呵

mapper的代码可用，可我怎么把算出来的数字传回mush用呢？