Potential Final Problem

take.rkt

;;list number -> list
;;the function takes in a list and a number and returns a list of the first n elements.
(define (take a-list n)
  (cond [(= 0 n) empty]
        [else (cons (first a-list) (take (rest a-list)(- n 1))) ]))

(check-expect (take (list "a" "b" "c" "d" "e") 3)(list "a" "b" "c"))
(check-expect (take (list "a" "b" "c" "d" "e") 2)(list "a" "b"))