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

7 ответов

9 просмотров

Ага, BSL.readFile. Интересно, что если, например, сделать так: extract :: BSL.ByteString -> [Word32] extract = run where run :: BSL.ByteString -> [Word32] run "" = [] run s = getWord32LE (BSL.toStrict (BSL.take 4 s)) : run (BSL.drop 4 s) И далее print (take 16 (extract bsl)), то программа проходится по всему файлу. В целом, понятно почему, но как сделать это всё дело ленивым, я как-то понять не могу

ㅤ Атеист
Ага, BSL.readFile. Интересно, что если, например, ...

меня немного волнует паттерн "" тут для бсл

Aleksei (astynax)-Pirogov Автор вопроса
кана
меня немного волнует паттерн "" тут для бсл

Ленивая строка только первый чанк сравнит по идее

ㅤ Атеист
Ага, BSL.readFile. Интересно, что если, например, ...

может бтв взять какую-нибудь готовую либу для стримингового парсинга бинарей?

кана
может бтв взять какую-нибудь готовую либу для стри...

Это скучно! Хочется самому разобраться и понять, как вообще с этой ленью работать

кана
может бтв взять какую-нибудь готовую либу для стри...

Наверное, можно было бы взять и обычный conduit. Всё равно ByteString надо гонять. Хотел сделать, как здесь, но как-то сложно императивный код переписывать, думаю, так делать не надо, надо подумать и написать так, как это должно быть написано на Haskell. (Имплементация на C работает так: храним состояние в структурке (длину уже обработанных данных, 16 байт на сам хеш и 64 байта для буфера. он нужен, на случай если длина блока не будет делиться на 64, мы могли сохранить эти байтики), далее обрабатываем последовательно блоки с помощью hash_update, когда мы придём к последнему блоку, дополним его так, чтобы его длина в байтах была кратна 64, посчитаем в последний раз хеш, вернём хеш hash_finalize)

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

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

А как старый хаскел с новым стыковать ? потому как тут работает https://play.haskell.org/saved/C3xpMzcd, а вот тут https://stepik.org/lesson/7602/step/9?unit=1473 нет ошибка C...
Fedor
131
Вопрос я правильно понимаю что в коде newtype ArrowMap k v = ArrowMap { getArrowMap :: k -> Maybe v } getArrowMap есть функция типа k -> Maybe v, если да, то не понимаю задач...
Fedor
64
Как Вы считаете нормально ли в двадцатых годах 21 века в ВУЗах Российской Федерации обучать студентов работе с TASM? Не слишком ли это "архаично"? (Если оффтоп или флейм для э...
Spiker01
52
Продолжая диалог про свифт в проде – сейчас возник вопрос в активном наборе бекендеров. В основном в нашей компании мы фанаты Java Spring и полностью ей довольны. Однако найм ...
Guseyn
27
{!! $modx->runSnippet( 'multiTV',[ 'tvName'=>'slider-main1', 'docid'=>'[*id*]', 'tplConfig'=>'', 'display'=>'4', 'offset'=>'0', 'rows'=>'all', 'ra...
Роман С
4
PopOs or Linux Mint for a noob starter? Also do you have any articles on how to safely dual boot Windows 10 alongside it? I've heard there are a bunch problems that can occur...
Senator
14
Комрады, хотел уточнить. Проперть в OnDestroy юнита-хозяина по-прежнему доступна? И еще уточнение: finalization юнита наступает раньше или позже OnDestroy?
Ed Doc
48
Из рассылки The Lazarus team is glad to announce the release of Lazarus 3.4. This is a bugfix release and was built with FPC 3.2.2. Here is the list of changes for Lazarus...
Ed Doc
4
Читаю сейчас [нет, уже больше не читаю!] курсовую о Булгакове, написанную, похоже, с помощью ChatGPT. Это удивительный психоделический опыт. Текст в основном написан в стиле б...
✨ Uni [🌊 В отпуске]
1
Всем привет! поделитесь, пож-та, как кто дебажил / решал проблему с 504 Time out ошибкой от nginx, когда стучишься на свой vapor сервер? в логах /var/log/nginx/error.log е...
Paul
24
Карта сайта