LO
Size: a a a
LO
R
cy
YP
A
A
AP
AP
AP
bool
.AP
addcomma n x =
uncurry (<>) .
second (take n) .
first (reverse . intercalate "," . chunksOf 3 . reverse) .
Text.breakOn "." $
x
"пишу такое изи, каждый день практицски"AP
<<*>>
, the biapplicative version of spaceship,is in my top 20.AP
AP
AP
AP
AP
"Почему
я
не
умер
маленьким" (с)
AP
class
(Multiplicative a) =>
MultiplicativeAction m a
| m -> a
where
infixl 7 .*
(.*) :: a -> m -> m
infixl 7 *.
(*.) :: m -> a -> m
меньше пустых строк! Больше переносов! Скоро обгоним elm-format!AP
perfN ::
(MonadIO m, Monoid b) =>
Int ->
T.Text ->
Measure m b ->
m a ->
PerfT m b a
perfN n label m a =
PerfT $ do
st <- get
(m', a') <- lift $ runMeasureN n m a
put $ Map.insertWith (<>) label m' st
return a'
KPACUBO (нет)perf :: (MonadIO m, Additive b) => T.Text -> Measure m b -> m a -> PerfT m b a
Пишешь такой себе пишешь, и тут форматтер решает, что длинно стало, и хоба — переносит всё!A