如何在Scheme中使用“case”条件

Question

我需要使用“案例”，但我不明白如何使用它。 我必须做一个月读一个月的程序，这个程序给出了这个月的天数。 但是当我输入任意数字时，我说对象xxx不适用。 有人可以帮帮我吗？

(clear)
(display "Ingrese Un numero de Mes: ")
(define mes (read))
(if (and (integer? mes)(>= mes 1)(<= mes 12))
  (case (mes)
             ((4 6 9 11)(display 30))
             ((1 3 5 7 8 10 12) (display 31))
             (else (display 28 ))      
  )
)

Answer 1

你的括号太多了。它应该是(case mes ...)，而不是(case (mes) ...)。它不像C风格的switch。 ： - ）