首页 > 代码库 > SICP1.3 MIT(CLT) Scheme实现(Lisp)

SICP1.3 MIT(CLT) Scheme实现(Lisp)



题目要求给出的函数需要完成以下三件事:

  1. 写一个函数,接受三个数作为参数
  2. 判断三个数中较大的两个数
  3. 计算较大两个数的平方和(两个数的平方之和)

我们从后往前,一步步完成这三个任务。

CSDN没有Lisp。用Python的标记了

#lang racket
;;SICP 1.3

;;try 1
(define (square x)(* x x))
(define (sum x y)(+(square x)(square y)))
(define (sum-largest x y z)
  (cond ((= (min x y z) x) (sum y z))
        ((= (min x y z) y) (sum x z))
        ((= (min x y z) z) (sum x y))))
;;try 2
(define (largest-three x y z)
  (if (>= x y)
      (sum x (if (>= y z) y z))
      (sum y (if (>= x z) x z))))
;;testing 1
(sum-largest 2 3 6)
(sum-largest 5 8 12)

;;testing 2
(largest-three 4 8 75)


SICP1.3 MIT(CLT) Scheme实现(Lisp)