added quick sort example

This commit is contained in:
VaclavT 2021-02-09 18:23:36 +01:00
parent 4047c6811d
commit 85608ab755
1 changed files with 5 additions and 0 deletions

View File

@ -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")