Форум программистов, компьютерный форум, киберфорум
Наши страницы
Haskell
Войти
Регистрация
Восстановить пароль
 
Weronika
0 / 0 / 1
Регистрация: 01.03.2016
Сообщений: 64
1

Задать бесконечный список и найти в нем указанную величину

13.11.2017, 15:50. Просмотров 458. Ответов 4
Метки нет (Все метки)

а) Задать бесконечный список - Шестиугольных чисел – 1,6,15,28… б) Найти в нем указанную величину - наибольшее трехзначное число, кратное 3
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.11.2017, 15:50
Ответы с готовыми решениями:

а) Задать бесконечный список. б) Найти в нем указанную величину
а) Квадратные пирамидальные числа – 1,5,14,30..б)количество кратных 5 чисел, меньших 1000.

Вычислить указанную величину приближенно, со степенью точности
Ребят помогите. Не могу понять как делать. Увы эту тему в универе пропустил. Вычислить указанную...

Вычислить указанную величину приближенно, воспользовавшись разложением в степенной ряд
вычислить указанную величину приближенно с заданной степенью точностью а воспользовшись разложением...

Увеличить положительные элементы матрицы и уменьшить отрицательные на указанную величину
Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу A из 5 строк и 5...

Создать двусвязный список и найти в нем максимум
прошу напишите пожалуйста прогу, которая создаст двусвязный список и найдёт в нем максимум

4
Curry
3169 / 2183 / 269
Регистрация: 01.06.2013
Сообщений: 4,658
Записей в блоге: 9
13.11.2017, 16:22 2
Haskell
1
2
3
4
5
6
7
hexagonals :: [Integer]
hexagonals = map (\n -> n * (2*n-1)) [1..]
  
main:: IO ()
main = print $ maxXXX 0 $ filter ((==0).(`mod` 3)) hexagonals 
    where maxXXX p ~(x:xs) | x>999 = p
                           | otherwise = maxXXX x xs
1
Catstail
Модератор
25379 / 13012 / 2424
Регистрация: 12.02.2012
Сообщений: 21,254
13.11.2017, 17:46 3
Haskell
1
2
3
4
5
hexagon :: [Integer]
hexagon = [ n*(2*n-1) | n <- [1..]]
 
task :: Integer
task = head $ reverse $ dropWhile ((/= 0) . (`mod` 3)) $ dropWhile (< 100) $ takeWhile (< 1000) hexagon
1
Curry
3169 / 2183 / 269
Регистрация: 01.06.2013
Сообщений: 4,658
Записей в блоге: 9
13.11.2017, 17:56 4
Catstail, takeWhile у меня из головы вылетело.
Но у Вас ошибка
Haskell
1
task = last $ filter (\ x -> (mod x 3) == 0) $ takeWhile (< 1000) hexagon
1
Catstail
Модератор
25379 / 13012 / 2424
Регистрация: 12.02.2012
Сообщений: 21,254
13.11.2017, 18:08 5
Ой, у меня reverse не на месте... Хотя Ваше решение лучше, конечно.

Haskell
1
task = head $ dropWhile ((/= 0) . (`mod` 3)) $ reverse $ dropWhile ( < 100) $ takeWhile (< 1000) hexagon
1
13.11.2017, 18:08
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2017, 18:08

Нужен BAT-файл, который будет добавляться в автозагрузку и проверять дату, указанную в нем же
Собственно нужен бат файл который будет добавляться в автозагрузку и проверять дату указанную в нем...

программа берет слово, к примеру Hello, и удаляет в нем какую либо букву указанную программистом по счету,
Нужно сделать следующие, программа берет слово, к примеру Hello, и удаляет в нем какую либо букву...

Как в консольном приложении задать бесконечный цикл
using System; using System.Collections.Generic; using System.Linq; using System.Text; ...


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

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

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