eg.scm

来自「A method to Sort a list of numbers in Sc」· SCM 代码 · 共 17 行

(define (sam n)
  (let ((digit 0)(temp 0) (mul 1) (full 0))
      (let sample ((num n))
         (set! temp (quotient num 10))
         (set! mul (* mul 10))
         (if (= (quotient temp 10) temp) (begin
                                           (set! mul (/ mul 10))
                                           (let xx ((num1 n))
                                           (set! temp (remainder num1 10))
                                           (set! full (+ full (* mul temp)))
                                           (set! mul (/ mul 10))
                                           (set! num1 (quotient num1 10))
                      (if (= (quotient num1 10) num1) (+ full (* (/ mul 10) num1)) (xx num1)))) 
                                          
                                           (sample temp) ))))