Ubuntu系统查找aeiou都只出现一次的单词的程序

最新推荐文章于 2022-10-07 15:32:58 发布

原创最新推荐文章于 2022-10-07 15:32:58 发布 · 252 阅读

0 ·

CC 4.0 BY-SA版权

本文详细解析了一个代码片段的功能，包括单词过滤、统计好词与最佳单词的数量，并探讨了不同单词筛选条件下的结果。同时，文章还介绍了如何在代码中实现这些功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

module Main where

import Data.Char
import Data.List

main = do
  words <- readFile "/etc/dictionaries-common/words"
  let wordlist = lines words
  mapM_ putStrLn $ filter bestword wordlist
  -- putStrLn $ show $ length $ filter goodword wordlist -- 469
  -- putStrLn $ show $ length $ filter bestword wordlist -- 187


goodword word = all (\c -> elem c $ map toLower word) "aeiou" && notElem '\'' word

bestword word = all (\c -> length (findIndices (`elem` (c:[])) (map toLower word)) == 1) "aeiou" && notElem '\'' word

说好的高亮呢？