Scheme中三角形计算的周长

Question

有没有人理解这个任务（在Dr Racket中）想要编写一个计算周长的程序三角形周长 一个三角形。该过程应该将矩形三角形的表示作为输入。 实现这样一个表示make-triangle，用作输入 三角形的三个坐标（0,0）（2,0）（0,2）。

真的很难理解...... 任何建议表示赞赏！ 最诚挚的问候，Eunice

Answer 1

所需要的只是确定每一方的长度，然后总结长度：

(define (perimiter a b c d e f)
    (let ([side1 (sqrt (+ (* a a) (* b b)))]
          [side2 (sqrt (+ (* c c) (* d d)))]
          [side3 (sqrt (+ (* e e) (* f f)))])
        (+ side1 side2 side3)))

(write (perimiter 0 0 0 2 2 0))