Бесконечный список чисел Пелля-Люка

@ЭльвираР · Регистрация: 08.02.2015

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

а) Используя функцию iterate, написать функцию, которая строит бесконечный список чисел Пелля-Люка
б) Написать функцию, которая читает входной текстовой файл и выводит в выходной файл знаки препинания и количество их вхождений в исходный файл, отсортированные по убыванию вхождений.

@Curry · 23.04.2016, 20:05

Сообщение от ЭльвираР

Используя функцию iterate, написать функцию, которая строит бесконечный список чисел Пелля-Люка

Haskell

foo:: [Int]
foo =  map fst $ iterate (\(n,m) -> (m,2*m+n)) (2,2)
 
main :: IO ()
main = print $ take 8 foo

Сообщение от ЭльвираР

Написать функцию, которая читает входной текстовой файл

Haskell

import Data.List
import Data.Function
import Control.Arrow
 
foo:: IO ()
foo = readFile "input.txt" >>= 
  writeFile "output.txt" . unlines . map (\(c,n) -> c : "   " ++ show n) .
  sortBy (compare `on` (negate . snd)) . 
  map (head &&& length) . group . sort . 
  filter (`elem` "!;:(){}[]?.,"'")  
    
main :: IO ()
main = foo

Добавлено через 30 минут
Перед двойной кавычкой внутри строки 10, которая идёт перед запятой, нужно вставить обратную косую.
В исходном тексте она и была, но исчезла при отправке сообщения.

Добавлено через 1 минуту
вот что должно быть.

Haskell

1	filter (`elem` "!;:(){}[]?.,\"'")

@ЭльвираР · 23.04.2016, 20:28 **[ТС]**

Еще раз большое спасибо

@Catstail · 23.04.2016, 20:51

KolodeznyDiver, сдается мне, что начало последовательности должно быть не (2,2), а (0,1)

@Curry · 23.04.2016, 21:17

Catstail, https://ru.wikipedia.org/wiki/... 0.BA.D0.B0

Числа Пелля — Люка, а не просто Пелля

@ЭльвираР 0 / 0 / 1 Регистрация: 08.02.2015 Сообщений: 10
		1
	Бесконечный список чисел Пелля-Люка 23.04.2016, 17:54. Показов 1987. Ответов 4 Метки нет (Все метки) а) Используя функцию iterate, написать функцию, которая строит бесконечный список чисел Пелля-Люка б) Написать функцию, которая читает входной текстовой файл и выводит в выходной файл знаки препинания и количество их вхождений в исходный файл, отсортированные по убыванию вхождений. 0

@ЭльвираР 0 / 0 / 1 Регистрация: 08.02.2015 Сообщений: 10
	23.04.2016, 20:28 [ТС]	3
	Еще раз большое спасибо 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	23.04.2016, 20:51	4
	KolodeznyDiver, сдается мне, что начало последовательности должно быть не (2,2), а (0,1) 0

@Curry Модератор 5047 / 3276 / 526 Регистрация: 01.06.2013 Сообщений: 6,806 Записей в блоге: 9
	23.04.2016, 21:17	5
	Catstail, https://ru.wikipedia.org/wiki/... 0.BA.D0.B0 Числа Пелля — Люка, а не просто Пелля 1

Бесконечный список чисел Пелля-Люка

Решение