haskell 如何實(shí)現(xiàn) list 中元素出現(xiàn)次數(shù)的統(tǒng)計(jì)呢？[已解決]

drunkedcat

對于一個(gè) list, 如何統(tǒng)計(jì)它其中每個(gè)元素都出現(xiàn)了多少次呢？

即這樣的一個(gè)函數(shù)：

wordCount :: [a] -> [(a, Int)] 如何來實(shí)現(xiàn)呢？

謝謝各位了先。

-----------
group 是個(gè)好東東。

[ 本帖最后由 drunkedcat 于 2009-5-15 18:29 編輯 ]

win_hate

寫一個(gè)

Prelude List> x
[1,1,2,1,3,2,1,2,2,3,4,2]

Prelude List> [(head x, length x)| x<- group $ sort x]
[(1,4),(2,5),(3,2),(4,1)]

win_hate

Mathematica

1. 
   
2. L={1,1,2,1,3,2,1,2,2,3,4,2}
   
3. {#[[1]], # // Length} & /@ (L // Sort // Split)
   
4. 
   
5. {{1, 4}, {2, 5}, {3, 2}, {4, 1}}
   

復(fù)制代碼

MMMIX

原帖由 win_hate 于 2009-5-11 13:33 發(fā)表
Mathematica

稍稍解釋下 mathematica 的語法撒，根本就看不懂，也猜不出來。。。

win_hate

mathematica  的函數(shù)用 ［］ 而不是 （），所以我們習(xí)慣的 f (x) 要寫成 f[x]

由于 [] 被函數(shù)用掉了，所以列表用 {}, 若 L 是列表，則 L[[n]] 取第 n 個(gè)元素。

前綴 f[x]
后綴 x//f
二元函數(shù)，中綴 x~f~y

/@ 是 Map 的簡寫，也可以用 Map，

Split 類似 Haskell， List 模塊中 的 group

lambda 表達(dá)式在 Mathematica 中稱為純函數(shù)，可以用 Function 來構(gòu)建。比如 \x y->x+y 可以表示為

Function[{x,y}, x+y]

也可以簡寫為 #1+#2 &，后面要有個(gè) &，于是  #1+#2 & [1,2] 得到 3。

{#[[1]], # // Length} & /@ (L // Sort // Split)

分為 3 部分

• (L//Sort//Split) 后綴使用 Sort 和 Split
• {#[[1]], # // Length} &
  lambda 表達(dá)式 \x -> (head x, legth x)
• /@ 是 Map
  

思路跟 2 樓的 Haskell 代碼是一樣的。

MMMIX

原帖由 win_hate 于 2009-5-11 14:42 發(fā)表
lambda 表達(dá)式在 Mathematica 中稱為純函數(shù)，可以用 Function 來構(gòu)建。比如 \x y->x+y 可以表示為

這個(gè)在 Haskell 中是叫作 lambda abstraction，和在 lambda calculus 中一樣。

思路跟 2 樓的 Haskell 代碼是一樣的。

嗯，不過 Mathematica 的語法實(shí)在是太瘋狂了。。。

bs

這個(gè)簡直跟天書一樣啊，還能叫語言么

win_hate

換個(gè)寫法，短一些。

{#[[1]], Length@#} & /@ Split@Sort@L


Mahtematica 在認(rèn)祖追宗時(shí)說受了 APL 的影響，APL 的冗余度是低了點(diǎn)。

不過也沒樓上兩位說得那么夸張吧？用過 perl 和 shell 的人還能怕這個(gè)？


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

加個(gè)清晰版：

f = Function[{x}, {Part[x, 1], Length[x]}]
Map[f, Split[Sort[L]]]

[ 本帖最后由 win_hate 于 2009-5-12 23:55 編輯 ]

MMMIX

原帖由 win_hate 于 2009-5-12 23:47 發(fā)表
換個(gè)寫法，短一些。

{#[[1]], Length@#} & /@ Split@Sort@L


Mahtematica 在認(rèn)祖追宗時(shí)說受了 APL 的影響，APL 的冗余度是低了點(diǎn)。

若說是跟 APL 學(xué)的，這我倒信

BTW，APL 的冗余度不是低，那簡直是太低了。

drunkedcat

呵，還是看著 haskell 的語法簡單些，可能是習(xí)慣了吧。