marco/scheme-playground
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

sicp exercise 1.3

Browse Source
This commit is contained in:
Marco 2024-08-20 16:44:37 +02:00
parent fb6baaa630
commit a92e918950
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
exercise1-3.scm Normal file
View File

@ -0,0 +1,13 @@
(define (square-sum-larger-two a b c)
(if (< a b)
(if (< a c)
(+ (* c c) (* b b))
(+ (* a a) (* b b)))
(if (> c b)
(+ (* c c) (* a a))
(+ (* b b) (* a a)))
)
)
(print (square-sum-larger-two 4 3 2))