eg.scm

A method to Sort a list of numbers in Scheme... It also has other operations in Scheme

(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) ))))