方案:创建一个要求两个数字并计算其乘积的过程产品

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?的数字，剩下的问题就应该不言而喻了。