В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Haskell Start

846 membersпожаловаться на группу
2021 February 14

D

Dmitry in Haskell Start
Спасибо, я понял какого толка это понятие.
Пока что такой подробный CS меня не интересует, потому что ещё не закончились понятия предназначенные для рук.
источник
01:39пожаловаться#1

ЕИ

Евгений Иванов... in Haskell Start
Всем привет.

Подскажите плз, как правильно такое записать
squareDigit = read . map (^2) . show
источник
12:17пожаловаться#2

IL

Ilya L. in Haskell Start
Привет!
Тебе надо разобрать число на цифры и получить сумму квадратов цифр?
источник
12:18пожаловаться#3

ЕИ

Евгений Иванов... in Haskell Start
Ilya L.
Привет!
Тебе надо разобрать число на цифры и получить сумму квадратов цифр?
Привет не сумму, но типа того.
squareDigit 9119 shouldBe 811181
источник
12:19пожаловаться#4

ЕИ

Евгений Иванов... in Haskell Start
Ilya L.
Привет!
Тебе надо разобрать число на цифры и получить сумму квадратов цифр?
конкатенация всех квадратов цифр
источник
12:20пожаловаться#5

AP

Aleksei (astynax) Pi... in Haskell Start
Евгений Иванов
Всем привет.

Подскажите плз, как правильно такое записать
squareDigit = read . map (^2) . show
как возвести в квадрат символы строки?
источник
12:22пожаловаться#6

IL

Ilya L. in Haskell Start
Если тем, чем ты ограничился, то
1. Переводим из int в строку - show
2. теперь  обратно в инт каждый символ отдельно (map что-то там)
3. теперь map в string
4. Теперь конкатенация (concat), и после если надо - то обратно в Int

Все функции ты уже знаешь
источник
12:23пожаловаться#7

AP

Aleksei (astynax) Pi... in Haskell Start
read . concatMap (show . (^?) . read) . show
источник
12:23пожаловаться#8

A

Aragaer in Haskell Start
можно избавиться от одного concat, если сделать concatMap
источник
12:23пожаловаться#9

A

Aragaer in Haskell Start
а вместо внутреннего read есть digitToInt
источник
12:24пожаловаться#10

AP

Aleksei (astynax) Pi... in Haskell Start
Есть, но тут можно было и нормально разряды получить, а не через show
источник
12:24пожаловаться#11

ЕИ

Евгений Иванов... in Haskell Start
спасибо
источник
12:25пожаловаться#12

ЕИ

Евгений Иванов... in Haskell Start
Aleksei (astynax) Pirogov
Есть, но тут можно было и нормально разряды получить, а не через show
а каким образом ?
источник
12:25пожаловаться#13

ЕИ

Евгений Иванов... in Haskell Start
это Data.Digits ?
источник
12:27пожаловаться#14

AP

Aleksei (astynax) Pi... in Haskell Start
Да хоть руками написать через divMod
источник
12:29пожаловаться#15

AP

Aleksei (astynax) Pi... in Haskell Start
> digits num = reverse . map snd . takeWhile (/= (0, 0)) . tail $ iterate (\(x, _) -> x `divMod` 10) (num, 0)
> digits 355244152
[3,5,5,2,4,4,1,5,2]
источник
12:29пожаловаться#16

AP

Aleksei (astynax) Pi... in Haskell Start
Можно и проще, наверное. Это я сходу наколхозил
источник
12:29пожаловаться#17

ЕИ

Евгений Иванов... in Haskell Start
спасибо
источник
12:30пожаловаться#18

AP

Aleksei (astynax) Pi... in Haskell Start
> digits 0 = []; digits v = let (x, y) = v `divMod` 10 in digits x ++ [y]
> digits 355244152
[3,5,5,2,4,4,1,5,2]
> digits 3552441520
[3,5,5,2,4,4,1,5,2,0]
источник
12:31пожаловаться#19

AP

Aleksei (astynax) Pi... in Haskell Start
Или так
источник
12:31пожаловаться#20