added quick sort example

2021-02-09 18:23:36 +01:00
parent 4047c6811d
commit 85608ab755
1 changed files with 5 additions and 0 deletions
--- a/debug.lisp
+++ b/debug.lisp
@@ -1,5 +1,10 @@
 (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"))
 (print csv)
 (print (parse-csv csv))
+
 (print "Debug ends")