diff --git a/Unit 1/Lesson 6/lists.hs b/Unit 1/Lesson 6/lists.hs index fd25f92..fbf58f4 100644 --- a/Unit 1/Lesson 6/lists.hs +++ b/Unit 1/Lesson 6/lists.hs @@ -2,7 +2,7 @@ myRepeat :: a -> [a] myRepeat n = cycle [n] subseq :: Int -> Int -> [a] -> [a] -subseq first last aList = take last (drop first aList) +subseq start end aList = take end (drop start aList) inFirstHalf :: Eq a => a -> [a] -> Bool inFirstHalf item aList = item `elem` firstHalf