Форум программистов, компьютерный форум, киберфорум
Haskell
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 13.05.2015
Сообщений: 5

Функция inverse должна по заданному числу выдавать число, десятичная запись которого содержит цифры исходного

13.05.2015, 20:07. Показов 2096. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Функция inverse :: Integer -> Integer должна по заданному числу выдавать число, десятичная запись которого содержит цифры исходного числа в обратном порядке. Например, inverse 36 => 63, inverse 1050 => 501.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.05.2015, 20:07
Ответы с готовыми решениями:

Вывести на экран наибольшее число, десятичная запись которого заканчивается цифрой 3
Дан массив из 30 элементов. Вывести на экран наибольшее число, десятичная запись которого заканчивается цифрой 3. Если таких чисел нет -...

Программа и функция для подсчета количества элементов вектора, десятичная запись которых содержит не менее двух нулей
Составить главную программу и функцию. В функции в векторе А(М), состоящем из целых чисел больших 10, подсчитать количество элементов,...

Определить,является ли заданное натуральное число палиндромом,т.е таким,десятичная запись которого читается одинаково
Определить,является ли заданное натуральное число палиндромом,т.е таким,десятичная запись которого читается одинаково слева направо и...

6
Модератор
 Аватар для Curry
5158 / 3487 / 536
Регистрация: 01.06.2013
Сообщений: 7,567
Записей в блоге: 9
13.05.2015, 20:22
Haskell
1
2
inverse :: Integer -> Integer
inverse = read . reverse . show
1
0 / 0 / 0
Регистрация: 13.05.2015
Сообщений: 5
13.05.2015, 20:38  [ТС]
Извиняюсь, а можно несколько подробнее?

Добавлено через 8 минут
Цитата Сообщение от KolodeznyDiver Посмотреть сообщение
Haskell
1
2
inverse :: Integer -> Integer
inverse = read . reverse . show
Не могли бы вы объяснить принцип работы данного кода?
0
Модератор
 Аватар для Curry
5158 / 3487 / 536
Регистрация: 01.06.2013
Сообщений: 7,567
Записей в блоге: 9
13.05.2015, 20:42
Последовательно применяются функции show - преобразовать в строку, reverse - перевернуть строку, read - преобразовать из строки.
1
0 / 0 / 0
Регистрация: 13.05.2015
Сообщений: 5
13.05.2015, 22:35  [ТС]
Спасибо, посмотрим как оно у меня заработает

Добавлено через 1 час 52 минуты
А можно попробовать это сделать без перевода в строку и переворота по типу
Haskell
1
2
3
4
prov:: Integer->Integer
prov x = (mod (mod x 100)10)*100 + 
     (div (mod x 100)10)*10+
     (div x 100)
0
202 / 200 / 65
Регистрация: 06.10.2013
Сообщений: 552
13.05.2015, 22:40
Цитата Сообщение от jaasik Посмотреть сообщение
без перевода в строку и переворота по типу
С ограничением - для трехзначных чисел)
0
1195 / 588 / 88
Регистрация: 20.09.2012
Сообщений: 1,881
13.05.2015, 23:55
Цитата Сообщение от jaasik Посмотреть сообщение
А можно попробовать это сделать без перевода в строку и переворота по типу
Haskell
1
2
3
4
prov n = rev 0 n
    where 
        rev acc 0 = acc
        rev acc n = rev (acc * 10 + mod n 10) (div n 10)
http://ideone.com/B7RN1P
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.05.2015, 23:55
Помогаю со студенческими работами здесь

Функция: по заданному натуральному числу определить его первую и последнюю цифры
Написать и протестировать функцию, которая по заданному натуральному чтслу определяет его первую и последнюю цифры. Помогите срочно

Дано число, запись которого не содержит нулей. Запишите число теми же цифрами, но в обратном порядке
Здравствуйте! Написала код для решения следующей задачи: Дано число n, десятичная запись которого не содержит нулей. Получите число,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru