haskell 재귀 함수

Question

두 개의 인수를 취하는 함수를 작성하는 데 도움을주십시오 : int 및 인덱스 (int) 목록 및 테이블의 지정된 인덱스 위치에 음수 값이있는 정수 목록을 반환합니다.

이 함수의 서명은 MyReverse :: [Int]->Int->[Int]입니다.

예 : myReverse [1,2,3,4,5] 3 = [1,2,-3,4,5].

색인이 목록의 길이보다 크거나 0보다 작은 경우 동일한 목록을 반환하십시오.

Answer 1

myReverse :: [Int] -> Int -> [Int] 
myReverse [] n = [] 
myReverse (x:xs) n 
| n < 0  = x:xs 
| n == 0 = (-x):xs 
| otherwise = x:(myReverse xs (n-1)) 

배열의 색인은 0입니다. 예는 1에서 색인을 생성하지만, n == 0의 경우에는 정의되지 않습니다. 1에서 인덱스로 가져 오는 수정 사항은 매우 분명해야합니다.

또한 대문자와 일치하지 않습니다. MyReverse은 myReverse과 다르며 후자 만 기능으로 유효합니다. GHCi에서

결과 : myReverse에 대한 무의미 정의를 사용하여, 같은 일을

*Main> myReverse [10,20,30,40,50] 0 
[-10,20,30,40,50] 
*Main> myReverse [10,20,30,40,50] 2 
[10,20,-30,40,50] 
*Main> myReverse [10,20,30,40,50] 3 
[10,20,30,-40,50] 
*Main> myReverse [10,20,30,40,50] 5 
[10,20,30,40,50] 
*Main> myReverse [10,20,30,40,50] (-1) 
[10,20,30,40,50] 

더 많은 일반 버전 :

myGeneric :: (a -> a) -> [a] -> Int -> [a] 
myGeneric f [] n = [] 
myGeneric f (x:xs) n 
| n < 0  = x:xs 
| n == 0 = (f x):xs 
| otherwise = x:(myGeneric f xs (n-1)) 

myReverse :: [Int] -> Int -> [Int] 
myReverse = myGeneric negate 

Answer 2

myReverse xs i = 
    let j = i - 1 
    in take j xs 
    ++ - (xs !! j) 
     : drop i xs