gnome sort in jslisp

0_gnomesort.jsl.scm

(define swap (lambda (a b lis)
        ((. (vector) concat)
         ((. lis slice) 0 a) 
         (get lis b) 
         (get lis a) 
         ((. lis slice) (+ b 1)))))
 
(define gnomesort (lambda (lis i)
        (if (>= i (. lis length))
            lis
            (if (< i 1)
                (gnomesort lis 1)
                (if (<= (get lis (- i 1)) (get lis i))
                    (gnomesort lis (+ i 1))
                    (gnomesort (swap (- i 1) i lis) 
                               (- i 1)))))))

(gnomesort (vector 4 5 4 5 0 7 2 1) 1)

1_resultCode.js

var swap = function (a,b,lis){
return (((vector)() . concat))(((lis . slice))(0,a),(get)(lis,b),(get)(lis,a),((lis . slice))((b + 1)))};
var gnomesort = function (lis,i){
return (i >= (lis . length)) ? lis : (i < 1) ? (gnomesort)(lis,1) : ((get)(lis,(i - 1)) <= (get)(lis,i)) ? (gnomesort)(lis,(i + 1)) : (gnomesort)((swap)((i - 1),i,lis),(i - 1))};
(gnomesort)((vector)(4,5,4,5,0,7,2,1),1);

2_evaluated

[0,1,2,4,4,5,5,7]