ИБ
Наверное, это самый боринг хаскель из всех боринг хаскелей.
lastFalse :: [a] -> [(a, Bool)]
lastFalse [] = []
lastFalse xxs@(_:xs) = go xxs xs
where
go (x:_) [] = [(x, False)]
go (x:xxs) (_:xs) = (x, True) : go xxs xs
go [] _ = error "Impossible"
Не, вот самый боринг. Даже без вспомогательных функций
lastFalse :: [a] -> [(a, Bool)]
lastFalse [] = [] -- либо заменить на то, как он себя должен вести при пустом списке
lastFalse [x] = [(x, False)]
lastFalse (x:xs) = (x, True) : lastFalse xs