gistfile1.hy

(import [random [shuffle]])

(defn quick [s]
    (if (len s)
        (+ (quick (list-comp x [x s] (< x (first s)) ))
            [(first s)]
            (quick (list-comp x [x s] (> x (first s)) ))
        )
        []
    )
)

(defn main []
    (setv k (range 20))
    (print k)
    (shuffle k)
    (print k)
    (print (quick k))
)

(if (= __name__ "__main__")
    (main)
)