169 похожих чатов

Как сделать [a] -> [(a,Bool)] , так чтобы false у

последнего эл-та
zip x ((const True <$> drop 1 x)++[False])
но можно лучше?

12 ответов

15 просмотров

не drop, а init?

Я человек простой, мне рекурсию проще читать, если она записана как рекурсия f [] = [] f [x] = [(x,False)] f (x:xs) = (x,True) : f xs

Alexander-Vershilov Автор вопроса
іва
Я человек простой, мне рекурсию проще читать, если...

Этот вариант даже не рассматривается

Alexander Vershilov
Этот вариант даже не рассматривается

слишком боринг или есть объективные причины?

Alexander-Vershilov Автор вопроса
іва
слишком боринг или есть объективные причины?

Отдельная функция, которую приходится записывать на toplevel

Alexander Vershilov
Отдельная функция, которую приходится записывать н...

так-то в where можно отправить, но сделать ее безымянной, да не получится.

snd . foldr (\x (b, xs) -> (True, (x, b):xs)) (False, [])

zip xs ((tail xs $> False) ++ [True])

очевидно же: import Control.Exception import Data.IORef import System.IO.Unsafe lastIsFalse :: [Bool] lastIsFalse = unsafePerformIO $ do ref <- newIORef False let go = do b <- unsafeInterleaveIO $ readIORef ref bs <- unsafeInterleaveIO $ do writeIORef ref True _ <- evaluate b writeIORef ref False go pure $ b : bs go walk :: [a] -> [a] walk = foldr (\x r -> (:) x $! r) [] -- >>> test -- [(1,True),(2,True),(3,True),(4,True),(5,False)] test = walk $ take 5 $ zip [1..] lastIsFalse

написал про это пост: https://github.com/effectfully/sketches/tree/master/a-law-breaking-hack

Alexander-Vershilov Автор вопроса
Roman
написал про это пост: https://github.com/effectful...

Там же сразу по куску кода видно что оно будет ломаться при разном порядке вычисления (хотя читаю дальше)

Alexander Vershilov
Там же сразу по куску кода видно что оно будет лом...

ну я попытался это замаскировать в целях сторителлинга

Похожие вопросы

Обсуждают сегодня

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
Rꙮman Yankꙮvsky
29
А вообще, что может смущать в самой Julia - бы сказал, что нет единого стандартного подхода по многим моментам, поэтому многое выглядит как "хаки" и произвол. Короче говоря, с...
Viktor G.
2
30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Добрый день! Скажите пожалуйста, а какие программы вы бы рекомендовали написать для того, чтобы научиться управлять памятью? Можно написать динамический массив, можно связный ...
Филипп
7
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Карта сайта