1

私はその本を読んでいて、例に出くわしました。これにより、a-ftreeに目のフィールドに'blueが含まれる子構造が含まれるかどうかが決まります。

(define-struct child (father mother name date eyes))

;; Oldest Generation:
(define Carl (make-child empty empty 'Carl 1926 'green))
(define Bettina (make-child empty empty 'Bettina 1926 'green))

;; Middle Generation:
(define Adam (make-child Carl Bettina 'Adam 1950 'yellow))
(define Dave (make-child Carl Bettina 'Dave 1955 'black))
(define Eva (make-child Carl Bettina 'Eva 1965 'blue))
(define Fred (make-child empty empty 'Fred 1966 'pink))

;; Youngest Generation: 
(define Gustav (make-child Fred Eva 'Gustav 1988 'brown))


;; blue-eyed-ancestor? : ftn  ->  boolean
;; to determine whether a-ftree contains a child
;; structure with 'blue in the eyes field
;; version 2: using an or-expression
(define (blue-eyed-ancestor? a-ftree)
  (cond
    [(empty? a-ftree) false]
    [else (or (symbol=? (child-eyes a-ftree) 'blue)
              (or (blue-eyed-ancestor? (child-father a-ftree))
                  (blue-eyed-ancestor? (child-mother a-ftree))))]))

関数をどのように作り直して、a-ftreeに1966年の誕生日の子が日付フィールドに含まれているかどうかを判断できるようにするにはどうすればよいでしょうか。

4

1 に答える 1

1

それはあなたがすでに持っているものと非常に似ています。一般的な考え方は次のとおりです。

; birth-date? returns true if there's a child in the tree with the given date
;   a-ftree: a family tree
;   date:    the date we're looking for
(define (birth-date? a-ftree date)
  (cond
    [<???> <???>]                         ; identical base case
    [else (or (= (<???> a-ftree) <???>)   ; if this child has the expected date
              (or (<???> <???> date)      ; advance the recursion over father
                  (<???> <???> date)))])) ; advance the recursion over mother

次のように使用します。

(birth-date? Gustav 1966)
=> #t
于 2013-02-24T23:09:39.477 に答える