Haskell - Đếm số lần mỗi phần tử khác nhau trong danh sách xảy ra

Question

Tôi mới dùng Haskell và tôi đang cố gắng viết một danh sách để tính toán tần suất của từng giá trị riêng biệt trong danh sách, nhưng tôi đang gặp sự cố phần cuối cùng ..

Cho đến nay tôi có điều này:

frequency :: Eq a => [a] -> [(Int,a)] 
frequency list = [(count y list,y) | y <- rmdups ] 

Cái gì là sai với phần cuối cùng liên quan đến rmdups.

Chức năng đếm mất một nhân vật và sau đó một danh sách các nhân vật và cho bạn biết mức độ thường xuyên nhân vật đó xảy ra, các mã như sau ..

count :: Eq a => a -> [a] -> Int 
count x [] = 0 
count x (y:ys) | x==y = 1+(count x ys) 
       | otherwise = count x ys 

Thank-you trước.

Answer 1

Chức năng rmdups của bạn chỉ là nub từ Data.List.

Answer 2

tôi đã phải sử dụng Ord trong thay vì Eq vì việc sử dụng sort

frequency :: Ord a => [a] -> [(Int,a)] 
frequency list = map (\l -> (length l, head l)) (group (sort list)) 

Answer 3

Giả sử rmdups có loại

rmdups :: Eq a => [a] -> [a] 

Sau đó, bạn đang bỏ lỡ một tham số cho nó.

frequency :: Eq a => [a] -> [(Int,a)] 
frequency list = [(count y list,y) | y <- rmdups list] 

Nhưng lỗi bạn nhận được sẽ hữu ích khi chẩn đoán.

Answer 4

Thay thế rmdups bằng nub list làm việc cho tôi như một sự quyến rũ.

Answer 5

Bạn cũng có thể sử dụng một mảng kết hợp/đồ hữu hạn để lưu trữ các hiệp hội từ các yếu tố danh sách để đếm của họ trong khi bạn tính toán tần số:

import Data.Map (fromListWith, toList) 

frequency :: (Ord a) => [a] -> [(a, Int)] 
frequency xs = toList (fromListWith (+) [(x, 1) | x <- xs]) 

Ví dụ sử dụng:

> frequency "hello world" 
[(' ',1),('d',1),('e',1),('h',1),('l',3),('o',2),('r',1),('w',1)] 

Xem tài liệu hướng dẫn của fromListWith và toList.

Answer 6

Theo yêu cầu, đây là một giải pháp sử dụng Control.Arrow:

frequency :: Ord a => [a] -> [(Int,a)] 
frequency = map (length &&& head) . group . sort 

Đây là chức năng tương tự như câu trả lời ThePestest 's, trừ

λl -> (length l, head l) 

được thay thế bằng

-- simplified type signature 
(&&&) :: (a -> b) -> (a -> c) -> a -> (b, c) 

từ Control.Arrow.Nếu bạn muốn tránh việc nhập khẩu,

liftA2 (,) :: Applicative f => f a -> f b -> f (a, b) 

hoạt động như tốt (sử dụng các ví dụ applicative của (->) r)