什麼是一個更簡潔的方法來計算一個元素出現在J列表中的次數？

Question

這裏的（可能是幼稚）的方式我已經做到了：

count =: 4 : '# (#~ =&x) y'"1 0 1

換句話說，如果我說4 count 3 4 4 3 4 7 9結果是3，因爲4發生在給定列表3個三次。

這很好，但我想知道J是否提供了一些更簡潔的方式來描述這一點。

Answer 1

當我做到這一點，知道我永遠只能將有一個列表，而不是一個矩陣，我使用：

count =: 4 : '+/x=y' 

或者在列表中的多個搜索：

count =: 4 : '+/x=y'"0 1 

您的方法僅複製等於x的元素，然後對結果進行計數。總結那些平等是少一個操作。

Answer 2

我同意MPelletier提供的算法。既然你要求簡潔，隱含的措辭可能值得關注。下面是這樣一個程序，被分配給一個名字：

count =: +/ @: = 

它也可以被用作匿名的動詞，如在這個例子中：

4 (+/ @: =) 3 4 4 3 4 7 9 
3 

同義詞是[: +/ =

正如MPelletier所述，當你想要計算的是簡單列表中的原子時，該算法就可以工作。 （這將需要不同的方法同樣需要將計算在形狀相似矩陣的列表匹配的矩陣。）

Answer 3

我們或許應該也不在話下Member of IntervalE.：

4 E. 3 4 4 3 4 7 9 
0 1 1 0 1 0 0 

+/ 4 E. 3 4 4 3 4 7 9 
3 

所以

f =: +/ @: E. 

例如

4 f 3 4 4 3 4 7 9 
3 
(1 0) f (1 0 3 2 4 1 0 3) 
2