schemeで((商品番号a 価格a 購入個数a) (商品番号b 価格b 購入個数b)....)のようなリストを定義して、価格a*購入個数a+価格b*購入個数b+...のように、商品の総価格を求める関数を作りたいです。
どのように関数を書くべきでしょうか?
>(display (count-price '((1 100 10) (2 250 5) (3 500 3))))
#lang racket
(define (seki x y) ( * x y))
(define (count-price item)
(if (null? item)
`()
( apply + seki (map cadr item) (map last item))))