スキームダブルすべてのリスト値とマッピング機能を書く

Question

私は、宿題の質問があります：

は、私が最初の部分を持っている（ double-list-elements）完全

(define (double-list-elements s) 
    (if (null? s) 
    '() 
    (cons (* 2 (car s)) 
     (double-list-elements (cdr s))))) 

しかし、私は正直言って、double-list-elements-oneをどのように進めるべきか全く分かりません。どんな指針も大変ありがとうございます。

近いがないシガー：

(define (double-list-elements s) 
    (if (null? s) 
     '() 
     (cons (* 2 (car s)) 
      (double-list-elements (cdr s))))) 

(define (custom-map proc lst) 
    (if (null? lst) 
     '() 
     (cons (proc lst) 
      (custom-map proc (cdr lst))))) 

(define (double-list-elements-one func s) 
    (custom-map double-list-elements s)) 

(double-list-elements-one double-list-elements '(1 2 3 4 5 6)) 

出力= (list (list 2 4 6 8 10 12) (list 4 6 8 10 12) (list 6 8 10 12) (list 8 10 12) (list 10 12) (list 12))

私は、パラメータだけでなく、リストとして、ダブルリスト要素-1に二重リストの要素を渡す必要があります。

Answer 1

あなただけmapあなた自身を記述する必要があり、それはあなたがすでに、単に手続きパラメータとして変化部分を通過して、適切な場所にそれを起動しているものに非常に似た非常にです：

(define (mymap proc lst) 
    (if (null? lst) 
     '() 
     (cons <invoke proc on current element> 
      (mymap proc (cdr lst))))) 

(define (double-list-elements-one s) 
    (mymap <pass a proper lambda> s)) 

(double-list-elements-one '(1 2 3 4 5)) 
=> '(2 4 6 8 10)