haskell 如何实现 list 中元素出现次数的统计呢？[已解决]

win_hate

写一个

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}}
   

复制代码

win_hate

mathematica  的函数用 ［］ 而不是 （），所以我们习惯的 f (x) 要写成 f[x]

由于 [] 被函数用掉了，所以列表用 {}, 若 L 是列表，则 L[[n]] 取第 n 个元素。

前缀 f[x]
后缀 x//f
二元函数，中缀 x~f~y

/@ 是 Map 的简写，也可以用 Map，

Split 类似 Haskell， List 模块中 的 group

lambda 表达式在 Mathematica 中称为纯函数，可以用 Function 来构建。比如 \x y->x+y 可以表示为

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

也可以简写为 #1+#2 &，后面要有个 &，于是  #1+#2 & [1,2] 得到 3。

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

分为 3 部分

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

思路跟 2 楼的 Haskell 代码是一样的。

win_hate

换个写法，短一些。

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


Mahtematica 在认祖追宗时说受了 APL 的影响，APL 的冗余度是低了点。

不过也没楼上两位说得那么夸张吧？用过 perl 和 shell 的人还能怕这个？


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

加个清晰版：

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

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