をナビゲートする方法、私はgo_up方法を理解することはできません:あなたはジッパーを理解すれば、他の種類の定義の let go_up (Loc(t,p)) = match p with
Top -> failwith "up of top"
| Node(left,up,right) -> Loc(Section((rev left) @ (t::right)),up);;
完全なソース
私はlensとzippersと苦労しています。 Control.Monad.MonadPlus m => m (Zipper Top Int [Int] :>> A Int):私はのようなジッパーの種類を作成する方法、data A t = A tを持つghci > import Control.Lens
> import Control.Zipper
>
> :t within (ix 1)