Форум программистов, компьютерный форум, киберфорум
Наши страницы
Haskell
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
caxarock
0 / 0 / 0
Регистрация: 26.04.2017
Сообщений: 2
1

Создать новый список

26.04.2017, 12:51. Просмотров 680. Ответов 16

Помогите пожалуйста с кодом программы.
Задан список чисел. Создать новый список, в котором каждое значение поделено на максимальное значение исходного списка
P.S. Заранее спасибо
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2017, 12:51
Ответы с готовыми решениями:

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

Найти N наименьших елементов списка и сформировать из них новый список
Найти N наименьших елементов списка и сформировать из них новый список

Найти N самых маленьких элементов списка и сформировать из них новый список
Найти N самых маленьких элементов списка и сформировать из них новый список

Как создать новый тип - списки чего-нибудь
Добрый вечер. Почему-то не компилируется такой вот код: data CL = CL a Говорит, не знает,...

Как создать список кортежей?
Вот собственно задание. Дан список чисел. Составить список кортежей из всех возможных пар чисел...

16
nullxdth
2116 / 937 / 76
Регистрация: 12.03.2013
Сообщений: 4,315
26.04.2017, 12:53 2
Lisp
1
2
3
(defun foo (xs)
  (let ((max (reduce #'max xs)))
    (mapcar (lambda (x) (/ x max)) xs)))
1
caxarock
0 / 0 / 0
Регистрация: 26.04.2017
Сообщений: 2
26.04.2017, 12:57  [ТС] 3
Помогите, пожалуйста, с программным кодом.
Задан список чисел. Создать новый список, в котором каждое значение поделено на максимальное значение исходного списка
P.S. Заранее спасибо
0
Araneo
649 / 259 / 16
Регистрация: 02.03.2014
Сообщений: 587
26.04.2017, 13:11 4
Как-то так.
Haskell
1
task l = (/maximum l) <$> l
2
26.04.2017, 13:11
Curry
2991 / 2072 / 257
Регистрация: 01.06.2013
Сообщений: 4,525
Записей в блоге: 9
26.04.2017, 14:14 5
Haskell
1
task l = map (/maximum l) l
Того же размера хоть и не так оригинально. (И то же по сути.)
0
Araneo
649 / 259 / 16
Регистрация: 02.03.2014
Сообщений: 587
26.04.2017, 15:49 6
KolodeznyDiver, мой вариант не закрашится если импортировать модуль IntMap, Map или Vector...
Хотя нет, вру maximum не будет себя чувствовать хорошо эх да что же им стоит переписать эти функции сделав экземплярами соответствующих классов? Строчек десять кода на модуль.
0
_Ivana
4111 / 1900 / 238
Регистрация: 01.03.2013
Сообщений: 5,152
Записей в блоге: 22
26.04.2017, 16:24 7
У вас обоих закрашится на пустом контейнере. Но может такое поведение и подразумевалось в задаче.

ЗЫ если тип является функтором и фолдаблем, тогда действительно можно фмапнуть делением на результат, полученный сверткой по max от некоего волшебного стартового значения - если тип в контейнере у нас Баундед - то от его минБаунда, если нет - то от первого попавшегося значения в контейнере, которое опять же полиморфно не берется, но для списка можно взять хеад.
0
Araneo
649 / 259 / 16
Регистрация: 02.03.2014
Сообщений: 587
26.04.2017, 16:31 8
Таки пустой контейнер наши решения переживают, а вот что не переживают, так это случай, когда максимльное значение равно нулю. Но тут уж селяви, такова жизнь.

Добавлено через 5 минут
А нет, и ноль переживают *удивлённо смотрит на список [-Infinity,-Infinity,NaN]*
0
Curry
2991 / 2072 / 257
Регистрация: 01.06.2013
Сообщений: 4,525
Записей в блоге: 9
26.04.2017, 16:38 9
Цитата Сообщение от Araneo Посмотреть сообщение
Таки пустой контейнер наши решения переживаю
Таки да. Лень же - основа всего .
0
_Ivana
4111 / 1900 / 238
Регистрация: 01.03.2013
Сообщений: 5,152
Записей в блоге: 22
26.04.2017, 16:38 10
Точно, пустой контейнер и мапиться не будет - да здравствует лень! А вот с нулем действительно интересно - но это читерство из-за /, надо `div` писать, чтобы все было правильно и падало
0
Curry
2991 / 2072 / 257
Регистрация: 01.06.2013
Сообщений: 4,525
Записей в блоге: 9
26.04.2017, 16:41 11
Цитата Сообщение от Araneo Посмотреть сообщение
случай, когда максимльное значение равно нулю. Но тут уж селяви, такова жизнь.
Такова постановка задачи. Не определено чего в этом случае делать. Всё корректно.
0
Araneo
649 / 259 / 16
Регистрация: 02.03.2014
Сообщений: 587
26.04.2017, 16:54 12
Цитата Сообщение от _Ivana Посмотреть сообщение
чтобы все было правильно и падало
А вот никто не уточнял, что деление должно быть целочисленным
0
_Ivana
4111 / 1900 / 238
Регистрация: 01.03.2013
Сообщений: 5,152
Записей в блоге: 22
26.04.2017, 17:11 13
Ну тогда можно все сделать безопасно - организуем деление с возможным Нафингом, со всеми выплывающими красотами

Добавлено через 11 минут
А для полного счастья можно вообще Эксепшен-монаду или Лучше даже Cont-монаду использовать, как Денис Москвин на Степике рассказывает. Cont меня впечатлил - меня всегда впечатляет красивое и непонятное!
0
Araneo
649 / 259 / 16
Регистрация: 02.03.2014
Сообщений: 587
26.04.2017, 17:27 14
Нет, исключения это зло. Особенно в Хаскеле, меня заманывает их ловить. Уж лучше либо Either, либо Maybe. Оно как-то яснее выходит, а то из-за лени исключения возникают не там где ты их ловишь, а там, где они реально вычисляются. Я долго пытался понять, а почему у меня падают шесть потоков. Выяснилось, что исключение я ловил в первом, а возникло аж в шестом. Вот у меня ВСЕ потоки через которые передавалось сообщение упали... мрак монады, монады и только монады.
0
Curry
2991 / 2072 / 257
Регистрация: 01.06.2013
Сообщений: 4,525
Записей в блоге: 9
26.04.2017, 17:40 15
Вообще то, в задании не сказано не только какие числа (целые или какие), но и какие списки
Haskell
1
2
3
4
5
6
7
import qualified Data.List.NonEmpty as NE -- Этот модуль в базовом пакете
import Data.List.NonEmpty (NonEmpty(..),(<|))
 
task l = NE.map (/maximum l) l
 
main :: IO ()
main = print $ task $ 1 <| 4 <| 5 <| 3 :| []
2
Catstail
Модератор
24821 / 12618 / 2303
Регистрация: 12.02.2012
Сообщений: 20,526
26.04.2017, 18:01 16
Haskell
1
2
task xs = map (/maxi) xs where
                         maxi = maximum xs
0
Araneo
649 / 259 / 16
Регистрация: 02.03.2014
Сообщений: 587
26.04.2017, 18:01 17
Цитата Сообщение от KolodeznyDiver Посмотреть сообщение
Вообще то, в задании не сказано не только какие числа
О, а не пустые списки я бы использовать бы не догадался
0
26.04.2017, 18:01
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2017, 18:01

Создать список целых чисел. Создать новый список, записав в него отрицательные элементы
Создать список целых чисел. Создать новый список, записав в него отрицательные элементы.(задачу...

На входе список и число N, создать новый список, в котором каждый элемент из исходного повторяется N раз
То есть function('(1 2 3 4), 2) -&gt; '(11 22 33 44), помогите решить, заранее спасибо)

Создать список из целых чисел. Подсчитать количество отрицательных элементов, создав из них новый список
Создать список из целых чисел. Подсчитать количество отрицательных элементов, создав из них новый...


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

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.