; exercise 6
(define (exercise6)
(let* ((val1 (read)) (val2 (read)) (val3 (read))
(smallest 0) (middle 0) (largest 0))
(cond ((and (<= val1 val2) (<= val1 val3))
(set! smallest val1)
(cond ((<= val2 val3)
(set! middle val2)
(set! largest val3))
(else (set! middle val3)
(set! largest val2))))
((and (<= val2 val1) (<= val2 val3))
(set! smallest val2)
(cond ((<= val1 val3)
(set! middle val1)
(set! largest val3))
(else (set! middle val3)
(set! largest val2))))
(else (set! smallest val3)
(cond ((<= val1 val2)
(set! middle val1)
(set! largest val2))
(else (set! middle val2)
(set! largest val3)))))
(for-each display `("values sorted : "
,smallest ", " ,middle ", " ,largest #\newline))))
(exercise6)
(exercise6)
OyBleGVyY2lzZSA2CgooZGVmaW5lIChleGVyY2lzZTYpCiAgKGxldCogKCh2YWwxIChyZWFkKSkgKHZhbDIgKHJlYWQpKSAodmFsMyAocmVhZCkpCiAgICAgICAgIChzbWFsbGVzdCAwKSAobWlkZGxlIDApIChsYXJnZXN0IDApKQogICAgKGNvbmQgKChhbmQgKDw9IHZhbDEgdmFsMikgKDw9IHZhbDEgdmFsMykpCiAgICAgICAgICAgIChzZXQhIHNtYWxsZXN0IHZhbDEpCiAgICAgICAgICAgIChjb25kICgoPD0gdmFsMiB2YWwzKQogICAgICAgICAgICAgICAgICAgIChzZXQhIG1pZGRsZSB2YWwyKQogICAgICAgICAgICAgICAgICAgIChzZXQhIGxhcmdlc3QgdmFsMykpCiAgICAgICAgICAgICAgICAgIChlbHNlIChzZXQhIG1pZGRsZSB2YWwzKQogICAgICAgICAgICAgICAgICAgICAgICAoc2V0ISBsYXJnZXN0IHZhbDIpKSkpCiAgICAgICAgICAoKGFuZCAoPD0gdmFsMiB2YWwxKSAoPD0gdmFsMiB2YWwzKSkKICAgICAgICAgICAgKHNldCEgc21hbGxlc3QgdmFsMikKICAgICAgICAgICAgKGNvbmQgKCg8PSB2YWwxIHZhbDMpCiAgICAgICAgICAgICAgICAgICAgKHNldCEgbWlkZGxlIHZhbDEpCiAgICAgICAgICAgICAgICAgICAgKHNldCEgbGFyZ2VzdCB2YWwzKSkKICAgICAgICAgICAgICAgICAgKGVsc2UgKHNldCEgbWlkZGxlIHZhbDMpCiAgICAgICAgICAgICAgICAgICAgICAgIChzZXQhIGxhcmdlc3QgdmFsMikpKSkKICAgICAgICAgIChlbHNlIChzZXQhIHNtYWxsZXN0IHZhbDMpCiAgICAgICAgICAgICAgICAoY29uZCAoKDw9IHZhbDEgdmFsMikKICAgICAgICAgICAgICAgICAgICAgICAgKHNldCEgbWlkZGxlIHZhbDEpCiAgICAgICAgICAgICAgICAgICAgICAgIChzZXQhIGxhcmdlc3QgdmFsMikpCiAgICAgICAgICAgICAgICAgICAgICAoZWxzZSAoc2V0ISBtaWRkbGUgdmFsMikKICAgICAgICAgICAgICAgICAgICAgICAgICAgIChzZXQhIGxhcmdlc3QgdmFsMykpKSkpCiAgICAoZm9yLWVhY2ggZGlzcGxheSBgKCJ2YWx1ZXMgc29ydGVkIDogIgogICAgICAgICxzbWFsbGVzdCAiLCAiICxtaWRkbGUgIiwgIiAsbGFyZ2VzdCAjXG5ld2xpbmUpKSkpCgooZXhlcmNpc2U2KQooZXhlcmNpc2U2KQ==