Haskell教程:#14 Zippers
Zippers Haskell 中的拉链基本上是指向数据结构(例如树)的某个特定位置的指针。 让我们考虑具有 5 个元素 [45,7,55,120,56] 的树,它可以表示为完美二叉树。如果我想更新这个列表的最后一个元素,那么在更新它之前我需要遍历所有元素以到达最后一个元素。对?但是,如果我们能够以这样一种方式构建我们的树,即具有 N 个元素的树是 [(N-1),N] 的集合,那会怎样呢?然后,我们不需要遍历所有不需要的 (N-1) 元素。我们可以直接更新第 N 个元素。这正是拉链的概念。它聚焦或指向树的特定位置,我们可以在该位置更新该值,而无需遍历整棵树。 在下面的例子中,我们在列表中实现了拉链的概念。同样,可以在树或文件数据结构中实现 Zipper。 data List a = Empty | Cons a (List a) deriving (Show, Read, Eq, Ord) type Zipper_List a = ([a],[a]) go_Forward :: Zipper_List a -> Zipper_List a go_Forward (x:xs, bs) = (xs, x:bs) go_Back :: Zipper_List a -> Zipper_List a go_Back (xs, b:bs) = (b:xs, bs) main = do let list_Ex = [1,2,3,4] print(go_Forward (list_Ex,[])) print(go_Back([4],[3,2,1])) 当您编译并执行上述程序时,它将产生以下输出 -