将函数定义更改为无点样式

Question

我无法编写教授给我的代码：

编写一个名为digit7 的函数，它接受Int 并返回一个Bool，说明7 是否是其中一个数字。 （提示：使用show 将数字转换为字符列表。）使用digit7 创建一个 没有参数的函数称为square7，它返回最小的 正方形中包含 7 作为数字的数字。

我的代码是：

digit7 l = elem '7' (show l)

这可行，但我需要以无点风格编写的代码。我也无法弄清楚 square7 函数。

Answer 1

对于digit7 函数，您可以使用函数组合将定义转换为无点样式：

digit7 = (elem '7') . (show)

这是因为：

   digit7 l
-> ((elem '7') . (show)) l     By substitution
-> (elem '7') ((show) l)       By definition of (.)
-> elem '7' (show l)           By operator precedence

---

至于square7函数，我推荐使用dropWhile和head。