25 lines
712 B
Common Lisp
25 lines
712 B
Common Lisp
(print "Debug starts")
|
|
|
|
(define json_list (read-json "{\"k1\":\"v1\", \"k2\":42, \"k3\":[\"a\",123,true,false,null]}"))
|
|
(print json_list)
|
|
(for x json_list
|
|
(print x))
|
|
|
|
|
|
;; (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)
|
|
;; (define csv_list (parse-csv csv))
|
|
;; ; (print csv_list)
|
|
;; (for x csv_list
|
|
;; (print x))
|
|
|
|
;; (define web_page (read-url "https://query1.finance.yahoo.com/v7/finance/download/FDX?period1=1581272585&period2=1612894985&interval=1d&events=history&includeAdjustedClose=true"))
|
|
;; (print web_page)
|
|
;; (define fdx_list (parse-csv (index web_page 1)))
|
|
;; (print fdx_list)
|
|
|
|
(print "Debug ends")
|