Cách tìm từ dài nhất trong danh sách?

Question

Tôi không thể suy nghĩ trong một tư duy chức năng để giải quyết vấn đề này một cách đơn giản cũng có thể hoạt động trong các danh sách rất dài. Nếu bạn có một danh sách như:

["one", "two", "three", "four", "five"] 

tôi có thể nói những gì mà chiều dài của từ dài nhất là khá đơn giản với:

maximum $ map length ["one", "two", "three", "four", "five"] 

Làm thế nào tôi sẽ sửa đổi báo cáo kết quả trước đó để trả lại chuỗi ba ?

Answer 1

Sử dụng maximumBy, on và compare bạn có thể viết các biểu hiện như thế này:

import Data.List (maximumBy) 
import Data.Function (on) 

maximumBy (compare `on` length) ["one", "two", "three", "four", "five"] 

Answer 2

maximumBy(\x -> (x, length x)), fst và snd ở chế độ đơn giản.

Answer 3

btw, nếu ai có không sẵn sàng để sử dụng maximumBy, một cách đơn giản sẽ là mô hình trang trí-sort-undecorate/thành ngữ (trong đó hoạt động trong các ngôn ngữ khác như Python hay Scheme cũng):

snd $ maximum $ map (\x -> (length x, x)) ["one", "two", "three", "four", "five"] 

Nhưng kể từ khi tải trọng ban đầu cũng là một phần của các loại-key, kết quả không phải lúc nào sự xuất hiện đầu tiên của từ dài nhất (trong trường hợp này chỉ có một từ có độ dài dài nhất)

Answer 4

Chức năng này (hoặc thậm chí cả thư viện) dường như không nổi tiếng, nhưng Haskell thực sự có một mô-đun gọi là Data.Ord có chứa hàm comparing. như sử dụng Data.Function.on trong câu trả lời hàng đầu, ngoại trừ mã kết thúc thành ngữ hơn.

g>import Data.Ord 
g>import Data.List 
g>let getLongestElement = maximumBy (comparing length) 
getLongestElement :: [[a]] -> [a] 
g>getLongestElement ["one", "two", "three", "four", "five"] 
"three" 

Mã thực tế đọc như tiếng Anh. "Nhận tối đa bằng cách so sánh độ dài".

Answer 5

Để tính length a, bạn cần phải duyệt qua toàn bộ danh sách a. Trong trường hợp sử dụng cụ thể này, bạn chỉ quan tâm đến từ dài nhất, và không chính xác là bao lâu, vì vậy bạn có thể viết một hàm chỉ đi xa đến mức cần thiết trong mỗi danh sách để xác định cái nào dài nhất. Điều này có thể giúp bạn tiết kiệm một số xử lý:

module Main where 

main = putStrLn $ longestWordInList ["one", "two", "three", "four"] 

longestWordInList = go "" 
    where go result [] = result 
     go result (x:xs) = let result' = longestWord result x in 
           result' `seq` go result' xs 

longestWord a b = go a b a b 
    where go a _ _ [] = a 
     go _ b [] _ = b 
     go a b (_:as) (_:bs) = go a b as bs 

Answer 6

foldl (\accmax xs -> if length accmax < length xs then xs else accmax) [] ["one", "two", "three", "four", "five"]