-2

odd-listラケット言語を使用して、次のように機能する関数を作成するにはどうすればよいですか?

(odd-list '((1 2 3 4) (5 6 7 8) (10 11 12 13))) => ((1 3) (5 7) (11 13))
4

1 に答える 1

0
(require srfi/26)
(define (odd-list lists)
  (map (cut filter odd? <>) lists))

楽しみ。:-)

于 2013-03-13T12:18:16.957 に答える