Skip to content

Instantly share code, notes, and snippets.

@alvesjnr

alvesjnr/gist:8460020

Created January 16, 2014 18:00
Download ZIP

Revisions

  1. alvesjnr created this gist Jan 16, 2014.
    23 changes: 23 additions & 0 deletions gistfile1.hy
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,23 @@
    (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)
    )