|
|
|
@ -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
|
|
|
|
|