首页 > 代码库 > SICP1.3 MIT(CLT) Scheme实现(Lisp)
SICP1.3 MIT(CLT) Scheme实现(Lisp)
题目要求给出的函数需要完成以下三件事:
- 写一个函数,接受三个数作为参数
- 判断三个数中较大的两个数
- 计算较大两个数的平方和(两个数的平方之和)
我们从后往前,一步步完成这三个任务。
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)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。