--- title: 練習問題を解いている author: kazu634 date: 2008-09-07 url: /2008/09/07/_1099/ wordtwit_post_info: - 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4263;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}' categories: - gauche - Lisp ---

だいぶ再帰に慣れてきた…ように思う。

for-each-numbers

前章で、リストの中から条件を満たす要素だけを抜き出したリストを返す手続きfilterを書いてみるという問題を出しました。それを使って、「数値とそれ以外のものが混ざっているリストを受け取り、その中の数値だけについて手続きを適用するfor-each-numbersを書いてみてください。

(define (my_filter pred lis)
(cond [(null? lis) '()]
[(pred (car lis)) (cons (car lis) (filter pred (cdr lis)))]
[else (filter pred (cdr lis))]))
(define (for-each-number proc lis)
(cond [(null? lis) #f]
[else (for-each (lambda (x) (proc x)) (my_filter number? lis))]))

実行結果:

gosh> (for-each-number print '(#t 1 2 #f 3 5 6 7 8 9))
1
2
3
5
6
7
8
9
#<undef>
gosh> (for-each-number print '())
#f

map-numbers

同様に、数値だけに手続きを適用してその結果をリストにするmap-numbersも書いてみましょう。

(define (map-numbers proc lis)
(cond [(null? lis) #f]
[else (map proc (filter number? lis))]))

実行結果:

gosh> (map-numbers (lambda (x) (* x 2)) '(#t 1 2 3 4 5 #f 6 7 8 9))
(2 4 6 8 10 12 14 16 18)

numbers-only

for-eachやmapなどの手続きを受け取り、それを数値だけに適用する手続きへと変換するnumbers-onlyを書いてみましょう。

(define (numbers-only proc)
(lambda (proc_2 lis)
(cond [(null? lis) #f]
[else (proc proc_2 (filter number? lis))])))

実行結果:

gosh> ((numbers-only for-each) print '(#t 1 2 3 4 5))
1
2
3
4
5
#<undef>
gosh> ((numbers-only map) (lambda (x) (* x 2)) '(#t 1 2 3 4 5))
(2 4 6 8 10)