Инверсия списка без использования стандартных функций

@JERIKO · Регистрация: 09.08.2015

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

Вообщем задание очень простое, на входе дан список типа int на выходе тоже, нужно сделать инверсию. Я знаю для этого существует функция reverse, но мне сказали, что нельзя использовать стандартные функции, тут то у меня и возникли трудности... Поэтому прошу помощи у вас уважаемые форумчане

@korvin_ · 05.02.2013, 17:48

Haskell

myCoolReverse :: [Int] -> [Int]
myCoolReverse xs = rev xs [] where
    rev    []  ys = ys
    rev (x:xs) ys = rev xs (x:ys)

@Catstail · 05.02.2013, 18:26

Можно и так:

Haskell

myRev :: [Int] -> [Int]
myRev xx = foldr (\ x y -> y ++ [x]) [] xx
 
Main> myRev [1,2,3,4]
[4,3,2,1]

Добавлено через 3 минуты
А если отказаться от типа Int, то будет инвертироваться и строка символов:

Haskell

myRev :: [a] -> [a]
myRev xx = foldr (\ x y -> y ++ [x]) [] xx
 
Main> myRev "qwerty"
"ytrewq"   
 
Main> myRev [1,2,3,4]
[4,3,2,1]

Впрочем, это же относится и к коду уважаемого Korvin_

@Сtrl · 05.02.2013, 18:47

Сообщение от Jeriko

нельзя использовать стандартные функции

Сообщение от Catstail

foldr

Эм-м-м... Нельзя же.

Да и если использовать свертку, то можно проще.

Haskell

1	reverse' = foldl (flip (:)) []

@Catstail · 05.02.2013, 19:08

Или без накопительного параметра (короче, но работать будет медленнее):

Haskell

1
2
3

revMy :: [a] -> [a]
revMy [] = []
revMy (x:xs) = (revMy xs) ++ [x]

@JERIKO · 06.02.2013, 21:56

Всем огромное спасибо, вы мне очень помогли!!

@JERIKO 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 8
		1
	Инверсия списка без использования стандартных функций 05.02.2013, 17:38. Показов 1939. Ответов 5 Метки нет (Все метки) Вообщем задание очень простое, на входе дан список типа int на выходе тоже, нужно сделать инверсию. Я знаю для этого существует функция reverse, но мне сказали, что нельзя использовать стандартные функции, тут то у меня и возникли трудности... Поэтому прошу помощи у вас уважаемые форумчане 0

@JERIKO 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 8
	06.02.2013, 21:56	6
	Всем огромное спасибо, вы мне очень помогли!! 0