Подтвердить что ты не робот

Что такое магазин comonad?

Имея некоторое представление о том, что классный класс Comonad находится в Haskell, я слышал о Store comonad. Но глядя на Control.Comonad.Store.Lazy, я действительно не понимаю. Что это значит? Для чего это? Я слышал, что Store = CoState, двойник государственной Монады. Что это значит?

4b9b3361

Ответ 1

Это намного проще, если вы посмотрите на определение самого StoreT.

Вы можете думать об этом как о "месте" в более крупной структуре. Например, lens - это всего лишь a -> Store b a; вы получаете значение поля b и функцию b -> a, чтобы вернуть новое значение в больший контекст.

Учитывая это в его упрощенной форме без трансформатора:

data Store s a = Store (s -> a) s

instance Functor (Store s) where
  fmap f (Store g s) = Store (f . g) s

instance Extend (Store s) where
  duplicate (Store f s) = Store (Store f) s

instance Comonad (Store s) where
  extract (Store f s) = f s

то есть. duplicate изменяет s -> a на s -> Store s a, который просто возвращает "обновленное" место после замены значения, а extract восстанавливает оригинал a, помещая значение обратно в более крупную структуру.

Что касается его отношения к государству, вы можете посмотреть на него следующим образом:

type State s a = s -> (a, s)
type Store s a = (s -> a, s)

Ответ 2

Учитывая следующее определение хранилища,

data Store s a = Store { peek :: s -> a, pos :: s }

Мне нравится думать о Store как большом хранилище, заполненном значениями типа a. Каждое значение типа a помещается в позицию, помеченную значением индекса типа s. Наконец, есть вилочный погрузчик, припаркованный в положении pos. Автопогрузчик может использоваться для extract значения типа a из магазина, вытаскивая значение из того места, где он припаркован. Вы можете использовать seek для перемещения вилочного погрузчика в новое абсолютное положение или использовать seeks для перемещения вилочного погрузчика в новое относительное местоположение. Чтобы обновить все значения хранилища, используйте fmap. Наконец extend f похож на fmap, но вместо f :: a -> a' мы имеем f :: Store s a -> a', который позволяет функции обновления не только иметь доступ к обновляемому значению, но также дает доступ к позиции значения и доступ к значениям всего еще в магазине. Другими словами, extend использует значение плюс его окружающий контекст для выполнения обновления.

Более аналогичной аналогии будет думать о Store как о большой пластине жесткого диска со значениями, хранящимися в разных положениях, плюс головка, припаркованная в определенном положении.