schemeまたはracketの各サブリストに関数を適用するにはどうすればよいですか？

Question

各サブリストの製品を取得するには？

(apply map * '((1 2) (3 4))) 

それが返されます： が試さ '（3 8） それは返す必要がありながら'（2 12）

Answer 1

あなたは

(map (λ (xs) (match xs [(list a b) (* a b)])) 
    '((1 2) (3 4))) 

パターンマッチングを使用することができます...それとも、 mapを使用して、サブリストにを適用するラムダ

(map (λ (xs) (apply * xs)) 
    '((1 2) (3 4))) 

...それとも、ループが "という名前レット" と書くことができラムダ

(map (curry apply *) '((1 2) (3 4))) 

Answer 2

を置き換えるためにcurryを使用することができます。

(define (f l) 
    (let loop ((l l) 
      (ol '())) 
    (cond 
     [(empty? l) (reverse ol)] 
     [else (loop (rest l) 
        (cons (apply * (first l)) ol))]))) 

(f '((1 2) (3 4))) 

が出力：

'(2 12)