YS
Size: a a a
YS
JS
JS
fallRight :: Show b => a -> (a -> b) -> Either a b
fallRight a f
| "" <- show (f a) = Left a
| _ <- show (f a) = Right $ f a
main = print $ fallRight 'b' traceShowId
к
fallRight :: a -> (a -> Maybe b) -> e -> Either e b
fallRight a f
| Nothing <- fa = Left
| Just b <- fa = const(Right b)
where fa = f a
(вроде не бред написал) YS
e
не светилось в определениик
fallRight :: Show b => a -> (a -> b) -> Either a b
fallRight a f
| "" <- show (f a) = Left a
| _ <- show (f a) = Right $ f a
main = print $ fallRight 'b' traceShowId
:
🄺꧁
🄺꧁
A
T
:
:
[
:
JS
JS
:
:
а