added quick sort example
This commit is contained in:
parent
4047c6811d
commit
85608ab755
|
|
@ -1,5 +1,10 @@
|
||||||
(print "Debug starts")
|
(print "Debug starts")
|
||||||
|
|
||||||
|
(include "tmp/example.lisp")
|
||||||
|
(print "sorted: " (qs '(10 9 8 7 6 5 4 3 2 1)))
|
||||||
|
|
||||||
(define csv (read-file "tmp/data.csv"))
|
(define csv (read-file "tmp/data.csv"))
|
||||||
(print csv)
|
(print csv)
|
||||||
(print (parse-csv csv))
|
(print (parse-csv csv))
|
||||||
|
|
||||||
(print "Debug ends")
|
(print "Debug ends")
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue