Найти все числа в диапазоне от 1 до 100, сумма цифр которых равна 10 на Haskell

@Настя Солнечная · Регистрация: 10.03.2010

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

Добрый день, подскажите пожалуйста, как решить данные задачи?

1. Найти все числа в диапазоне от 1 до 100, сумма цифр которых равна 10
2. Написать предикат определения равенства первого и последнего элемента списка

@_Ivana · 25.12.2014, 15:30

Haskell
1
2
filter (\x -> (==10).sum.map toDigit.show $ x) [1..100]
\x -> head x == last x

Синтаксис не проверял

@Настя Солнечная · 25.12.2014, 15:32 **[ТС]**

_Ivana, спасибо, а не знаете, что делать со второй задачей?

@Araneo · 25.12.2014, 15:42

Haskell
1
task = [a*10 + b | a <- [0..9], b <- [0..9], a + b == 10]

Добавлено через 9 минут
_Ivana, Переусложняешь...

@Настя Солнечная · 25.12.2014, 15:43 **[ТС]**

а если в первой задаче мне нужно найти числа, произведение цифр которых больше 55, нужно сделать

Haskell
1
2
filter (\x -> (>55)...map toDigit.show $ x) [1..100] 
\x -> head x == last x

а что пишем вместо sum?

@Araneo · 25.12.2014, 15:45

Haskell
1
task = [a*10 + b | a <- [1..9], b <- [1..9], a*b > 55]

Добавлено через 40 секунд
Настя Солнечная, как-то так...

@Настя Солнечная · 25.12.2014, 15:46 **[ТС]**

Araneo, не могли бы объяснить, зачем вы a умножаете на 10? имеется ввиду проверка 10ти цифр?

@Araneo · 25.12.2014, 15:50

вместо sum пишем product

Добавлено через 3 минуты
Настя Солнечная, потому что мне нужно из двух цифр сделать число записанное в десятичной системе счисления...

@Catstail · 25.12.2014, 15:50

Haskell
1
2
3
4
5
task :: [Int]
task = map (\ x -> (10-x)*10+x) [1..9]
 
Main> task
[91,82,73,64,55,46,37,28,19]

@Araneo · 25.12.2014, 15:51

75 = 7*10 + 5
123 = 1*100 + 2*10 * 3
и тд...

@Настя Солнечная · 25.12.2014, 15:53 **[ТС]**

Написать предикат определения k-го элемента списка

а как здесь быть, не подскажете?

@Araneo · 25.12.2014, 15:53

Catstail, решение конечно хорошо, но оно менее общее, например для модификации с умножением уже не подходит...

@Catstail · 25.12.2014, 15:54

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

но оно менее общее

- а я решал частную задачу...

@Araneo · 25.12.2014, 15:55

Catstail, и решили её более эффективно... если уж быть честно...

@Curry · 25.12.2014, 18:59

Сообщение от Настя Солнечная

Найти все числа в диапазоне от 1 до 100, сумма цифр которых равна 10

Haskell
1
[19,28..91]

Добавлено через 17 минут
- понятно же что арифметическая прогрессия.

Сообщение от Настя Солнечная

найти числа, произведение цифр которых больше 55

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

task = [a*10 + b | a <- [1..9], b <- [1..9], a*b > 55]

глядя на таблицу умножения

Haskell
1
[a*10 + b | a <- [7..9], b <- [7..9], a*b > 55]

или даже

Haskell
1
tail [a*10 + b | a <- [7..9], b <- [7..9]]

,хотя, это и не общие решения.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Настя Солнечная 0 / 0 / 0 Регистрация: 10.03.2010 Сообщений: 17

	Найти все числа в диапазоне от 1 до 100, сумма цифр которых равна 10 на Haskell 25.12.2014, 14:25. Показов 3247. Ответов 14 Метки нет (Все метки) Добрый день, подскажите пожалуйста, как решить данные задачи? 1. Найти все числа в диапазоне от 1 до 100, сумма цифр которых равна 10 2. Написать предикат определения равенства первого и последнего элемента списка 0

@Настя Солнечная 0 / 0 / 0 Регистрация: 10.03.2010 Сообщений: 17
	25.12.2014, 15:32 [ТС]
	_Ivana, спасибо, а не знаете, что делать со второй задачей? 0

@Настя Солнечная 0 / 0 / 0 Регистрация: 10.03.2010 Сообщений: 17
	25.12.2014, 15:46 [ТС]
	Araneo, не могли бы объяснить, зачем вы a умножаете на 10? имеется ввиду проверка 10ти цифр? 0

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	25.12.2014, 15:50
	вместо sum пишем product Добавлено через 3 минуты Настя Солнечная, потому что мне нужно из двух цифр сделать число записанное в десятичной системе счисления... 1

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	25.12.2014, 15:51
	75 = 710 + 5 123 = 1100 + 210 3 и тд... 1

@Настя Солнечная 0 / 0 / 0 Регистрация: 10.03.2010 Сообщений: 17
	25.12.2014, 15:53 [ТС]
	Написать предикат определения k-го элемента списка а как здесь быть, не подскажете? 0

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	25.12.2014, 15:53
	Catstail, решение конечно хорошо, но оно менее общее, например для модификации с умножением уже не подходит... 0

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	25.12.2014, 15:55
	Catstail, и решили её более эффективно... если уж быть честно... 0