《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还是先看其它一些入门书籍吧，这本书配套着学学还是不错的。

第16章 带条件分支的函数定义

1 Guards in function definitions

a hide the internal details of the function from other software components

b remove some of the elements from the sequence

c select the formula that delivers the value of the function

d protect the function from damage by cosmic rays

2 The formula map reverse ["able", "was", "I"] delivers the value

a ["I", "saw", "elba"]

b ["elba", "saw", "I"]

c ["I", "was", "able"]

d ["able", "was", "I", "not"]

3 The formula map f xs delivers the value

a f x

b [f x | x <- xs]

c f xs

d [f xs]

4 Which of the following formulas is equivalent to the formula [g x y | y <- ys] ?

a (map . g x) ys

b (map g x) ys

c map (g x y) ys

d map (g x) ys

5 The following function delivers

HASKELL DEFINITION • h xs

HASKELL DEFINITION •     | xs == reverse xs = "yes"

HASKELL DEFINITION •     | otherwise = "no"

a "yes", unless xs is reversed

b "yes" if its argument is a palindrome, "no" if it’s not

c "no" if xs is not reversed

d "yes" if its argument is written backwards, "no" if it’s not

6 The following function

HASKELL DEFINITION • s x

HASKELL DEFINITION •     | x < 0    = -1

HASKELL DEFINITION •     | x == 0 = 0

HASKELL DEFINITION •     | x > 0    = 1

a the value of its argument

b the negative of its argument

c a code indicating whether its argument is a number or not

d a code indicating whether its argument is positive, negative, or zero

7 Assuming the following definitions, which of the following functions puts in sequence of x’s in place of all occurrences of a given word in a given sequence of words?

HASKELL DEFINITION • rep n x = [ x | k <- [1 . . n]]

HASKELL DEFINITION • replaceWord badWord word

HASKELL DEFINITION •     | badWord == word = rep (length badWord) ’x’

HASKELL DEFINITION •     | otherwise = word

a censor badWord = map (replaceWord badWord)

b censor badWord = map . replaceWord badWord

c censor badWord = replaceWord badWord . map

d censor badWord = map badWord . replaceWord

=========================================================

答

案

在

下

面

=========================================================

1 c

在函数定义里还可以有分支，当满足某种条件时，用一种定义，当满足另外的条件时，用另外一套定义。有点像C语言中的switch语句。

f x| x > 0 = 1| otherwise = -1

2 b

这道题容易做错。

先想想reverse ["able", "was", "I"]的结果是什么就不容易做错了。

以前提到过reverse函数的意思是把一个列表中的元素倒序排列， ["able", "was", "I"]这个里面有三个元素，倒过来就是[“I”, "was", "able"]。

那么map reverse函数的功能就可以这样描述了：把一个列表xsFather中的每个元素xsChild（本身还是一个列表）里的内容倒序。上例中xsFather就是["able", "was", "I"]，第一个元素是xsChild就是“able”，倒过来就是"elba"，这样map函数的意思也就清楚了，就是把reverse函数都作用于每个元素。

3 b

这里就是map函数的定义：

map f xs = [f x | x <- xs]

每一个参数f本身也是个函数，它要作用于后面xs里的每个元素x上，即f x。

第二个参数xs是一个列表，实际上就是把函数f遍历作用于xs中的元素上。

4 d

根据柯里函数的定义，g x也是一个函数，不妨记为h，那么

map (g x) ys = map h ys = [ h y | y <- ys]

这样应该好理解一些了。

对于柯里函数搞不懂的，需要认真学习高阶函数和不全函数等概念，一开始挺难理解的:-(

参见：《Two Dozen Short Lessons in Haskell》学习（九）- Types of Curried Forms and Higher Order Functions

5 b

就是一个回文序列的判断函数，如果是回文，就返回"yes"，否则返回"no"

h xs| (xs == reverse  xs)        = "yes"    -- 当一个序列如果等于它的反序时| otherwise                     = "no"

加上括号就好理解一些了。

在haskell中这个竖线就叫guard，注意缩进。每一条竖线后面跟着一个布尔表达式，当它满足时就用=后面的定义，不满足时，继续判断下一个guard条件。

6 d

这个很简单，就是通常的求一个数的正负符号的函数。

7 a

rep n x = [ x | k <- [1 . . n]] 这个函数可以把x重复n次，这里的x并没有说是什么类型。

例如：rep 3 2 就等于[2,2,2]

rep 3 '2'就是['2', '2', '2']，即"222"

guard条件是：     | badWord == word

紧接的定义是：  = rep (length badWord) ’x’

就是把badWord全换为字符'x'

replaceWord "fuucck" "fuucck"就等于"xxxxxx"

这个函数可以用于去掉文章中不文雅的词。