Формирование списка из заданного целого числа

@SKY_SHY · Регистрация: 15.10.2015

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

Необходимо сформировать список из цифр целого числа а потом проверить содержатся ли в этом списке все цифры от 0 до 9

Я не знаю, у меня в голове бредовая на ваш взгляд идея сформировать бесконечный список и отфильтровать его по заданному числу - это его верхняя граница, потом поделить заданное число на все элементы этого списка, начиная с последнего и сформировать новый.

Почему-то filter не хочет работать с бесконечным списком - он нужен для обобщения всех возможных чисел по разрядности.

Haskell
1
arr k = filter (< k) [m^p | m <- [10, 10..], p <- [1..]]

k - заданное число

Добавлено через 6 минут
Потом можно было бы scanl использовать для конечного списка - но он дает числа с плавающей точкой. Как от этого избавиться?

@_Ivana · 13.01.2017, 20:53

Haskell
1
f n = null $ ['0'..'9'] \\ show n

@Curry · 13.01.2017, 20:58

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

сформировать список из цифр целого числа

"Читерское" решение

Haskell
1
task = map ((+) (-(ord '0')) . ord) . show

"Учебное" решение

Haskell
1
2
3
4
task 0 = [0]
task v = go v []
   where go 0 r = r
         go n r = let (d,m)= n `divMod` 10 in go d (m:r)

@_Ivana · 13.01.2017, 21:10

Не по теме:

SKY_SHY, скажите как художник художнику - зачем вам хаскель? :) Курс в вузе закончился, Москвин не помог, тривиальные вещи типа 2+2 сделать не можете...

@SKY_SHY · 13.01.2017, 21:10 **[ТС]**

Колодезный нырятель, поясните пожалуйста ваш `divMod` - это как отличается от divMod и go - это ваша функция?

Не по теме:

Курс еще не закончился, ещё следующий семестр. Да и в течении всего семестра у меня не было достаточно времени погрузиться и научиться делать тривиальные вещи. Экзамен я не сдам, видимо.

@Catstail · 13.01.2017, 21:12

Haskell
1
2
3
4
5
6
7
8
9
10
11
-- Список цифр числа. Поскольку порядок не задан, цифры следуют в обратном порядке
 
digList :: Integer -> [Integer]
digList n | (n <= 9) = [n]
          | otherwise = (n `mod` 10) : digList (n `div` 10)
 
-- Проверка того, что есть все цифры от нуля до 9          
 
task :: Integer -> Bool
task n = foldr (\ p acc -> acc && (p `elem` w)) True [0..9]
         where w = digList n

@Curry · 13.01.2017, 21:18

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

`divMod` - это как отличается от divMod

n `divMod` 10 то же что и divMod n 10

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

go - это ваша функция?

есть другие предположения?

@SKY_SHY · 13.01.2017, 21:21 **[ТС]**

n `divMod` 10 то же что и divMod n 10

А, ну да точно!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@_Ivana
	13.01.2017, 21:10
	Не по теме: SKY_SHY, скажите как художник художнику - зачем вам хаскель? :) Курс в вузе закончился, Москвин не помог, тривиальные вещи типа 2+2 сделать не можете... 0

@SKY_SHY 2 / 2 / 1 Регистрация: 15.10.2015 Сообщений: 173
	13.01.2017, 21:10 [ТС]
	Колодезный нырятель, поясните пожалуйста ваш `divMod` - это как отличается от divMod и go - это ваша функция? Не по теме: Курс еще не закончился, ещё следующий семестр. Да и в течении всего семестра у меня не было достаточно времени погрузиться и научиться делать тривиальные вещи. Экзамен я не сдам, видимо. 0

@SKY_SHY 2 / 2 / 1 Регистрация: 15.10.2015 Сообщений: 173
	13.01.2017, 21:21 [ТС]
	n `divMod` 10 то же что и divMod n 10 А, ну да точно! 0