scheme - 方案：创建一个程序产品，它将要求两个数字并计算其乘积

Question

创建一个过程产品，它将要求两个数字并计算其乘积。如果乘积大于或等于 20，您的程序将请求半径以计算圆的面积；否则，程序将询问长度和宽度来计算矩形的面积。如果乘积为零，程序将显示无效输入！该计划应至少在两个程序中实施。

请帮忙？我有这个

(define circle
  (lambda (radius)
    (* 3.14 (* radius radius)))

(define product
  (lambda (a b)
    (* a b))

Answer 1

您可以使用“要求两个数字” read。

> (let ((a (read))) (format "You typed: ~a" a))
12
"You typed: 12"
> 

巧合的是，这也向您展示了如何format输出，尽管通读文档可能仍然有助于更精细的点。请记住检查返回值是否实际上是带有 的数字number?，您的问题的其余部分应该是不言自明的。