haskell 记录仓位功能

Question

我正在尝试编写一个函数，该函数将返回一个列表，其中包含从起点开始的所有位置。例如，如果我写 "positions [L,R,L,L,U] (0,0)" 结果必须是 "[(0,0),(-1,0),(0,0),(-1,0 ),(-2,0),(-2,1)]" 。

使用以下函数，我只能得到结束位置。谁能帮帮我？

type Position = (Int,Int)
data Step = L | R | U | D

type Route = [Step]

positions :: Route -> Position-> [Position]
positions [] p = p:[]
positions (m:ms) p = positions ms (move m p)

Answer 1

您的代码表明您已经定义了一个函数move :: Step -> Position -> Position，然后我们可以使用scanl :: (b -> a -> b) -> b -> [a] -> [b]：

positions :: [Step] -> Position -> [Position]
positions = flip (scanl (flip move))

scanl :: (b -> a -> b) -> b -> [a] -> [b] 因此将函数（此处为flip move）作为输入，该函数具有初始累加器（此处为Position）和列表元素（移动列表），并计算更新的累加器。然后我们给它初始累加器和位置列表。

由于我们的 move :: Step -> Position -> Position 和 positions :: [Step] -> Position -> [Position] 函数具有翻转参数（w.r.t. scanl），我们都翻转了 move 函数，以及我们使用 scanl (flip move) 构造的函数。