K
Да почему же это?
length xs <= val всегда лучше писать null (drop val xs), по крайней мере с листамиSize: a a a
2021 March 23
[
certifiable fleece
Вместо
да мне уже подсказали, что так лучше
I
что же он за писака такой, раз только одну книгу написал)
c
да мне уже подсказали, что так лучше
Ав вообще посматривай на ругательства hlint'a. Он много интересного знает
[
certifiable fleece
Ав вообще посматривай на ругательства hlint'a. Он много интересного знает
а он не ругался
c
а он не ругался
Странно, мне казалось, что он про это знает, надо будет пролистать правила еще раз
c
Хотя возможно это потому что только для листов так..
[
[
certifiable fleece
Странно, мне казалось, что он про это знает, надо будет пролистать правила еще раз
Ну вот не ругается
K
При условии, что серии хранятся отсортированными
import Data.Monoid
type TS a = [(Integer, Maybe a)]
combine :: TS a -> TS a -> TS a
combine ts [] = ts
combine [] ts = ts
combine ((i, xi) : as) ((j, xj) : bs) =
case compare i j of
EQ -> (i, getLast (Last xi <> Last xj)) : combine as bs
LT -> (i, xi) : combine as ((j, xj) : bs)
GT -> (j, xj) : combine ((i, xi) : as) bs
as = [(0, Just 1), (1, Nothing), (2, Just 2), (3, Just 3)]
bs = [(1, Just 2), (2, Nothing), (3, Just 2), (4, Just 5)]
test = combine as bs
[
а Last что делает?
c
VN
Всем привет, кто-то можем помочь с кодом? Он уже написан, но нужно упростить
[
Я уже в ghci потыкал, прикольно
K
А, это не тот
Last