按升序对三个数字排序

Question

昨天我回到家，决定尝试编写一个计划程序，将三个数字按升序排序。这是我想出了：

(define a 3) 
(define b 2) 
(define c 1) 

(define temp 0) 

(cond 
    ((> a c) (set! temp c) (set! c a) (set! a temp)) 
    ((> b c) (set! temp c) (set! c b) (set! b temp)) 
    ((> a b) (set! temp b) (set! b a) (set! a temp)) 
    ((> b c) (set! temp c) (set! b c) (set! b temp)) 
) 

(display a) 
(display b) 
(display c) 

是不是解决问题的功能方式？你会建议什么？

Answer 1

Scheme的内置排序函数在某些情况下比我们使用的所有排序算法实际上更快。

(sort < '(5 2 6)) 

回报

'(2 5 6) 

的主要问题，我与你的程序看到的是，你只运行一次交换。如果你能保证一个人总是处于另一个人的中间，那很好，但我不确定情况总是如此。也设置！有点难看，当我学会计划时，我的教授告诉我不要使用它，因为它是资源密集型的，并且有更好的方法来实现它。如果你想这样做，我建议将它们全部放在一个列表中，然后对它们进行排序并将它们从列表中拉出来。