《Two Dozen Short Lessons in Haskell》（Copyright © 1995, 1996, 1997 by Rex Page，有人翻译为Haskell二十四学时教程，该书如果不用于赢利，可以任意发布，但需要保留他们的copyright）这本书是学习 Haskell的一套练习册，共有2本，一本是问题，一本是答案，分为24个章节。在这个站点有PDF文件。几年前刚开始学习Haskell的时候，感觉前几章还可以看下去，后面的内容越来越难以理解。现在对函数式编程有了一些了解后，再来看这些题，许多内容变得简单起来了。
初学Haskell之前一定要记住：
把你以前学习面向过程的常规的编程语言，如Pascal、C、Fortran等等统统忘在脑后，函数式编程完全是不一样的编程模型，用以前的术语和思维来理解函数式编程里的概念，只会让你困惑和迷茫，会严重地影响你的学习进度。
这个学习材料内容太多，想把整书全面翻译下来非常困难，只有通过练习题将一些知识点串起来，详细学习Haskell还是先看其它一些入门书籍吧，这本书配套着学学还是不错的。
第18章 Interactive Keyboard Input and Screen Output
IO类型在初学Haskell的时候是一个很难理解的概念，平常的编程语言中已经习惯了输入、输出语句，但在函数式编程中一切皆函数，一个确定的函数会得到确定的计算结果，而与操作系统交互时函数式编程就不太方便了，这时Haskell引出了一个IO类型。
一个重要的do表达式：
这一章还介绍了一个字符串连接的函数，可以把字符串末尾加上换行符，再连接起来
unlines :: [String] -> String
unlines = concat . map (++ "\n")
例如：
unlines ["line1", "line2", "line3"] = "line1\nline2\nline3\n"
1 Values of IO type
a are in the equality class Eq
b specify requests for operating system services
c represent tuples in a unique way
d describe Jovian satellites
2 Which of the following intrinsic functions in Haskell causes output to appear on the screen?
a concat :: [[any]] -> [any]
b putStr :: String -> IO ()
c printString :: Message –> Screen
d getLine :: IO String
3 What will be the effect of the command main, given the following script?
HASKELL DEFINITION •main =
HASKELL DEFINITION • do putStr "Good "
HASKELL DEFINITION • putStr "Vibrations\n"
HASKELL DEFINITION • putStr " by the Beach Boys\n"
a one line displayed on screen
b two lines displayed on screen
c three lines displayed on screen
d audio effects through the speaker
4 What will be the effect of the command main, given the following script?
HASKELL DEFINITION • main =
HASKELL DEFINITION • do putStr "Please enter your first and last name (e.g., John Doe): "
HASKELL DEFINITION • firstLast <- getLine
HASKELL DEFINITION • putStr (reverse firstLast)
a display of name entered, but with the last name first
b display of last name only, first name ignored
c display of last name only, spelled backwards
d display of name spelled backwards （书中在这里有印刷错误）
5 How should the last input/output directive in the preceding question be changed to display the first name only?
什么时候只输出名字？
a putStr(take 1 firstLast)
b putStr(drop 1 firstLast)
c putStr(takeWhile (/= ’ ’) firstLast)
d putStr(dropWhile (/= ’ ’) firstLast)
=========================================================
答
案
在
下
面
=========================================================
1 b
2 b
putStr函数返回的类型是IO ()，表示要与操作系统有交互动作，这个()表示不返回任何数据。
3 b
结果应该是：
Good Vibrations
by the Beach Boys
4 d
如果输入是John Doe
则屏幕输出：eoD nhoJ
5 c
如果输入是John Doe
选项a：take 1 firstLast，会取出第一个字符，“J"
选项b：drop 1 firstLast，会除掉第一个字符， "ohn Doe"
选项c：takeWhile (/=' ') firstLast，会得到空格前的字符串，"John"，是正确答案。
选项d：dropWhile (/=' ') firstLast，会除掉第一个空格前的所有字符，" Doe"，注意Doe前面还有一个空格