Добавить символы

@Andy_Coldfield · Регистрация: 25.11.2017

Студворк — интернет-сервис помощи студентам

Итак есть последовательность из нескольких байт например, 6. 6 байт перевести в биты и дополнить после каждых 12 бит вставить 4 нулевых бита. И вернуть получившуюся последовательность байт.

@Andy_Coldfield · 23.10.2018, 22:11 **[ТС]**

Curry, а можете пояснить по охранным выражениям. Вот момент как к примеру выбрать каждый третий, пятый или прочий символ вставить нули?

Добавлено через 3 часа 51 минуту
Catstail, спасибо большое

@Andy_Coldfield · 24.10.2018, 13:21 **[ТС]**

Catstail, а как поставить ограничение на восемь символов, чтоб если не хватает дополнялись нулями?

@Catstail · 24.10.2018, 14:09

Andy_Coldfield, приведи пример этой ситуации

@Andy_Coldfield · 24.10.2018, 16:44 **[ТС]**

Catstail, На входе список [1,4] на выходе [0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0]

XRuZzz · 25.10.2018, 05:50

Сообщение от Andy_Coldfield

Как я понимаю сначала функция reverse используется для того, чтобы взять список в обратном порядке. Это я так понимаю связано с представлением данных в памяти? И применить к каждому элементу списка функцию go. Верно? А вот с охранными выражениями можно пояснить что происходит?

Тут непонятно, правильно ли вы понимаете, что такое композиция функций(в самом конце):
learnyouahaskell.com/higher-order-functions
Когда разбираетесь как работает рекурсивная функция go, надо просто закрыть рукой "reverse . " , так как она будет применяется, после рекурсивных вычислений go.

@Andy_Coldfield · 25.10.2018, 12:08 **[ТС]**

XRuZzz, у нас получается следующая ситуация функция f(g(t(x))). Получается сначала выполняется функция t(x), дальше полученный результат передаётся в функцию g(x), далее в f(x).
Мне интересно как работает функция go.

Добавлено через 3 минуты

Haskell
1
2
3
4
5
go _ _ ac [] = ac
          go i n ac (x:xs)
                | i == 0 = go 1 n (x:ac) xs
                | i == 1 = go 2 (x `shiftR` 4) ((x .&. 0x0F) : ac) xs
                | otherwise = go 0 0 ((x `shiftR` 4):((n .|. (x `shiftL` 4)) : ac)) x

Функция принимает три аргумента: i, n, ac. Верно?

XRuZzz · 25.10.2018, 14:29

Сообщение от Andy_Coldfield

Функция принимает три аргумента: i, n, ac. Верно?

ну, и ещё список байтов, итого 4 аргумента.

Вы не захотели написать рекурсивную функцию, которая перебирает список по байту, придётся написать её за вас:

Haskell
1
go _ _ _ (x:xs) = go 0 0 [] xs

Не по теме:

Чтобы разобраться, краевое условие можно пока выкинуть из головы:

Haskell
1
go _ _ ac [] = ac

Так мы перебираем байты! И на эту функцию уже накручиваем алгоритм, что нужно сделать с каждым байтом.

Тут

Haskell
1
job = reverse . go (0::Int) 0 []

Используется частичное применение и композиция(про которую можно почитать по ссылкам)

4-ый аргумент добавляется в функции go, после редукции выражения

Haskell
1
2
3
(reverse . go (0::Int) 0 [])
~> по определению композиции f . g = \x -> f (g x):
\xs -> reverse (go (0::Int) 0 [] xs)

@Andy_Coldfield · 25.10.2018, 16:38 **[ТС]**

XRuZzz, ачто происходит в охранных выпадениях? Можно вот их разобрать. Мне не понятно, что там происходит

XRuZzz · 25.10.2018, 17:00

Сообщение от Andy_Coldfield

XRuZzz, ачто происходит в охранных выпадениях? Можно вот их разобрать. Мне не понятно, что там происходит

Ну я конечно могу пересказывать учебную литературу своими менее понятными выражениями, если не хотите пытаться разобраться самостоятельно:
http://learnyouahaskell.com/sy... rds-guards
Но это будет отнимать очень много времени и вы таким образом не научитесь учиться. То есть чем больше решается задач без посторонней помощи и готовых решение тем больше усваивается материал. В книге Дынкин, Успенский "Математические беседы" говорится о том, что одна задача, решённая самостоятельно стоит 10(или больше) задач с подсмотренными решениями.

Не по теме:

Для меня ваше здоровье важнее ваших знаний, поэтому скажите вы хорошо высыпаетесь?

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@Andy_Coldfield 21 / 19 / 6 Регистрация: 25.11.2017 Сообщений: 708

	Добавить символы 18.10.2018, 14:52. Показов 2429. Ответов 28 Метки нет (Все метки) Итак есть последовательность из нескольких байт например, 6. 6 байт перевести в биты и дополнить после каждых 12 бит вставить 4 нулевых бита. И вернуть получившуюся последовательность байт. 0

@Andy_Coldfield 21 / 19 / 6 Регистрация: 25.11.2017 Сообщений: 708
	23.10.2018, 22:11 [ТС]
	Curry, а можете пояснить по охранным выражениям. Вот момент как к примеру выбрать каждый третий, пятый или прочий символ вставить нули? Добавлено через 3 часа 51 минуту Catstail, спасибо большое 0

@Andy_Coldfield 21 / 19 / 6 Регистрация: 25.11.2017 Сообщений: 708
	24.10.2018, 13:21 [ТС]
	Catstail, а как поставить ограничение на восемь символов, чтоб если не хватает дополнялись нулями? 0

@Catstail Супер-модератор 38217 / 21149 / 4314 Регистрация: 12.02.2012 Сообщений: 34,761 Записей в блоге: 14
	24.10.2018, 14:09
	Andy_Coldfield, приведи пример этой ситуации 0

@Andy_Coldfield 21 / 19 / 6 Регистрация: 25.11.2017 Сообщений: 708
	24.10.2018, 16:44 [ТС]
	Catstail, На входе список [1,4] на выходе [0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0] 0

@Andy_Coldfield 21 / 19 / 6 Регистрация: 25.11.2017 Сообщений: 708
	25.10.2018, 16:38 [ТС]
	XRuZzz, ачто происходит в охранных выпадениях? Можно вот их разобрать. Мне не понятно, что там происходит 0