Question

我今天一直在努力解决这个问题，我要做的就是开发一个功能，接受服务员并返回服务员被分配到的动物的总年龄。所以如果我以服务员Dave为例，我会得到10.不知道从哪里开始。你会如何增加年龄？

(define-struct animal (name species age breakfasthour dinnerhour))
    (define-struct attendant (name a1 a2 a3))


    (define gorilla (make-animal "Koko" "Gorilla" "4" "8" "10"))
    (define bat (make-animal "Bruce" "Bat" "1" "23" "5"))
    (define mandrill (make-animal "Manny" "Mandrill" "5" "8" "7"))
    (define crocodile (make-animal "Swampy" "Crocodile" "1" "10" "8"))
    (define ocelot (make-animal "Ozzy" "Ocelot" "7" "7" "17"))
    (define capybara (make-animal "Capy" "Capybara" "4" "6" "8"))
    (define potto (make-animal "Spot" "Potto" "2" "2" "6"))
    (define tapir (make-animal "Stripey" "Tapir" "3" "10" "6"))
    (define vulture (make-animal "Beaky" "Vulture" "10" "9" "6"))


    (define attendant1 (make-attendant "Dave" gorilla bat mandrill))
    (define attendant2 (make-attendant "John" crocodile ocelot capybara))
    (define attendant3 (make-attendant "Joe" potto tapir vulture))


    #;(define (meal-time? e1 e2)
      (string=? (animal-species e1)
                (animal-dinnerhour e2)))



    #;(define (animal-template s...)
      (...(animal-name s)...
          (animal-species s)...
          (animal-age s)...
          (animal-breakfasthour s)...
          (animal-dinnerhour s)...))

    #;(define (attendant-template s...)
      (...(attendant-name s)...
          (attendant-s1 s)...
          (attendant-s2 s)...
          (attendant-s3 s)...))

Answer 1

只需使用每种类型的访问者程序：

(define (animals-age att)
  (+ (animal-age (attendant-a1 att))
     (animal-age (attendant-a2 att))
     (animal-age (attendant-a3 att))))

显然，这只适用于年龄是数字，在你当前的代码中是一个字符串（为什么？），请考虑将年龄表示为数字，这样更有意义。

方案中的数据定义？

1 个答案: