构建推荐引擎：从推文分析到特征提取与线性代数应用
1. 推文单词频率分析
首先，我们从数据库中提取英文推文。在Haskell命令行中，可按以下方式查询数据库：
> :l LearningDataAnalysis04 LearningDataAnalysis06 LearningDataAnalysis07 LearningDataAnalysis08 > :m LearningDataAnalysis04 LearningDataAnalysis06 LearningDataAnalysis07 LearningDataAnalysis08 > import Data.HashMap.Strict as HM > import Data.List as L > tweetsEnglish <- queryDatabase "tweets.sql" "SELECT message, user FROM tweets WHERE language='en'" > let tweets = zip (readStringColumn tweetsEnglish 0) (readStringColumn tweetsEnglish 1)使用之前提到的频率函数，我们可以计算唯一推文的集合：
> let freqTable = frequency tweets > -- 唯一推文的数量 > HM.size freqTable 27348 > let unique
