Напишите функцию, находящую все непрерывные подсписки заданного списка

@Алексей228 · Регистрация: 15.05.2014

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

Напишите функцию infixesMy :: [a] -> [[a]], находящую все непрерывные подсписки
заданного списка. Например, infixesMy "abc" == ["","a","b","c","ab","bc","abc"].

@Catstail · 22.05.2014, 15:10

Haskell

infixesMy :: [a] -> [[a]]
infixesMy s = concatMap (\ n -> inf (drop n s)) [0..(length s)] 
              where inf x = map (flip take x) [1..(length x)]
 
Main> infixesMy "abc"
 
["a","ab","abc","b","bc","c"]

Добавлено через 2 минуты
Если не хватает пустого списка в начале - добавим:

Haskell

infixesMy :: [a] -> [[a]]
infixesMy s = [] : concatMap (\ n -> inf (drop n s)) [0..(length s)] 
              where inf x = map (flip take x) [1..(length x)]
 
Main> infixesMy "abc"
["","a","ab","abc","b","bc","c"]

@Алексей228 0 / 0 / 0 Регистрация: 15.05.2014 Сообщений: 12
		1
	Напишите функцию, находящую все непрерывные подсписки заданного списка 22.05.2014, 14:10. Показов 851. Ответов 1 Метки нет (Все метки) Напишите функцию infixesMy :: [a] -> [[a]], находящую все непрерывные подсписки заданного списка. Например, infixesMy "abc" == ["","a","b","c","ab","bc","abc"]. 0

	22.05.2014, 15:10