方案：创建一个程序产品，该产品将要求两个数字并计算其产品

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输出，尽管the docs 的阅读可能仍然有助于更好的点。只需记住检查返回值是否实际上是number?的数字，问题的其余部分应该是不言自明的。