list - スキーム - 空でないリストが必要です

Question

Scheme参考までに、を使ってプログラミングしてDrRacketいます。

プログラムを実行すると、次のエラー メッセージが表示されます。

check-expect encountered the following error instead of the expected value, 
(list false true true true). 
   :: first: expects a non-empty list; given: string?

コードは正常に動作するはずなので、何が問題なのかわかりません。

;; Signature: mymap: (x -> y) listofX -> listofY
;; Purpose: Consumes a function from X –> Y, and a list of X; returns a list of Y;
;;          by applying the function to each item in the list of X.

(define (mymap g alist)
  (cond
    [(empty? alist) empty]
    [else
     (cons (g (first alist))
           (mymap (rest alist) g))]
    )
  )

;; define 2 other functions using mymap and write
;; one check-expect for each of these functions

(check-expect (mymap string? (list 1 "ab" "abc" "")) (list false true true true))
(check-expect (mymap sqr (list 1 0 -3 4 -5)) (list 1 0 9 16 25))

(define (C2F c)
  (+ (* 9/5 c) 32))

(define (cf* alist)
  (mymap alist C2F))

(check-expect (mymap C2F (list 100 0 -40)) (list 212 32 -40))

前もって感謝します！

Answer 1

への再帰呼び出しでパラメーターを逆にしました。mymap次を使用します。

      (mymap g (rest alist)))]

それ以外の

      (mymap (rest alist) g))]