Kimura Fuyuki
fuyuk****@hadal*****
2003年 1月 20日 (月) 10:40:35 JST
At Mon, 20 Jan 2003 10:32:02 +0900, Kimura Fuyuki <fuyuk****@hadal*****> wrote: > > これで get, put!, exists?, delete! の4点セットを書いてみます。 いきなりバグ発覚… (define-method put! ((self <dictionary>) key val) (define (iteratee end? next put del) (cond ((not (end?)) (put val)) (else これどうするか考えてなかった))) (call-with-iterator self iteratee key)) (define-method delete! ((self <dictionary>) key) (define (iteratee end? next put del) (cond ((not (end?)) (del val) #t) (else #f))) (call-with-iterator self iteratee key)) -- 木村 冬樹