几年前兴起过一个“10个惊艳的XX单行代码”的潮流。始作俑者好象是Marcus Kazmierczak的《10 Scala One Liners to Impress Your Friends》，然后出现了各种其它语言的版本。
我不是编程工作者，现在才看到那些文章，跟风写了个Mathematica版。不过很多功能在Mathematica里都可以直接用一个函数搞定，看起来不是那么惊艳。
需要Mathematica 10.1以上的版本。
1. 列表每项乘以2
Range[10] * 2
2. 列表求和
Fold[Plus, Range[1000]]
Total[Range[1000]]
3. 验证字符串中是否存在某词
wordList = {"coffeescript", "eko", "play framework", "and stuff", "falsy"}
tweet = "This is an example tweet talking about javascript and stuff."
StringContainsQ[tweet, wordList]
4. 读取文件
fileText = Import["data.txt"]
fileLines = Import["data.txt", "List", "Numeric" -> False]
5. 生日歌
Do[Print["Happy Birthday " <> If[i == 3, "dear NAME", "to You"]], {i, 4}]
6. 过滤列表中的数字
{passed, failed} = Lookup[GroupBy[{49, 58, 76, 82, 88, 90}, # > 60 &], {True, False}, {}]
7. 读取和分析XML Web service
results = Import["http://search.twitter.com/search.atom?&q=scala", "XML"]
8. 寻找列表中最大最小值
Min[{14, 35, -7, 46, 98}]
Max[{14, 35, -7, 46, 98}]
9. 并行处理
result = ParallelMap[processItem, dataList]
10. 埃拉托斯特尼筛法
Reap[Range[2, #] //. p : {x_, ___} :> Complement[p, Range[0, #, Sow[x]]]][[2, 1]] &
