От: | deniok | ||
Дата: | 16.10.09 08:34 | ||
Оценка: |
П>>let fpower = Seq.init >> (>>) Const >> (<<) (Seq.fold (>>) id)
П>>
N>fpower = (foldr (.) id.).replicate
N>
N>fpower = (appEndo.).(mconcat.).(.Endo).replicate
N>
-- для f :: a -> b
(f .) :: (c -> a) -> c -> b
(. f) :: (b -> c) -> a -> c