Задан список. Сформировать список списков

04.06.2013, 20:45. **Показов** 1307. **Ответов** 2

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

Задан список [с1,...С]. Сформировать список списков [номер_мин_эл-та(с1,...сн)],[номер_мин_эл-та(с1,...сн-1)], [номер_мин_эл-та(с1,...сн-2)], [номер_мин_эл-та(с1,...Сн-1)],..., [номер_мин_эл-та(с1)].

Добавлено через 6 часов 5 минут

Haskell

reshenie :: [Int] -> [Int]
reshenie [] = []
reshenie x = (poss x (minimum x) ): reshenie (init x) 
 
poss :: [Int] -> Int -> Int
poss list elt | list == [] = -1
         | head list == elt = 0
         | otherwise = 1 + (poss (tail list) elt)

@Catstail · 04.06.2013, 21:38

Или так:

Haskell

listM :: [(Int,Int)] -> [Int]
listM [] = []
listM x  = (snd (minimum x)) : (listM (init x))
 
listMin :: [Int] -> [Int]
listMin x = listM (zip x [1..(length x)])

@Сtrl · 05.06.2013, 23:39

Haskell

import Data.List (minimumBy, inits)
import Data.Function (on)
 
minlist = map (fst . minimumBy (compare `on` snd)) . tail . inits . zip [0..]

	05.06.2013, 23:39

Опции темы