Andy Melnikov (nponeccop) wrote,
Andy Melnikov
nponeccop

Линзы для Maybe

Я тут изобрел шнягу, целый день с ней играюсь (cabal install data-lens-fd).

type MaybeLens v = Lens (Maybe v) v

withDefault :: v -> MaybeLens v
withDefault v = iso (fromMaybe v) Just

withNoop :: MaybeLens v
withNoop = lens (error "It's impossible to read with noop") (fmap . const)

withFailure :: MaybeLens v
withFailure = lens fromJust (\x (Just y) -> Just x)
Юскейс у withDefault такой:

type Modifier a = a -> a

counter x = mapLens x >>> withDefault 0

countItem :: String -> Modifier (M.Map String Int)
countItem x = counter x ^+= 1

item x y = mapLens x >>> withDefault M.empty >>> counter y

countItem2 :: String -> String -> Modifier (M.Map String (M.Map String Int))
countItem2 x y = item x y ^+= 1

itemCount x y countMap = item x y ^$ countMap
Вопрос ли залу:
а) дает ли полиморфность MaybeLens какие-то полезные свойства (например, является ли MaybeLens функтором)?
б) линзы кажутся хорошим базисом для построения абстрактных версий Data.Map и Data.Set. в HOOPL, помнится, были мапы на классах типов (Map k v =>). Известны ли вам другие попытки дизайна абстрактного интерфейса ко множеству и отображению?
в) линзы ввиду двунаправленности кажутся хорошим базисом для построения хитрых двунаправленных соответствий. Можно ли как-то изловчиться и сделать на линзах соответствие между программным текстом и AST (ака парсер+преттипринтер без копипасты)?
Tags: fp, haskell, programming
Subscribe

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 16 comments