vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sort tests added

Browse Source
This commit is contained in:
VaclavT
2021-02-26 09:49:54 +01:00
parent f7992b1eab
commit c104e3ce85
3 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
debug.lsp
View File

@@ -34,9 +34,15 @@
(print (len csv_list))
(define my_tickers '("WFC" "AIG"))
(define my_tickers '("FDX" "C" "AIG" "BAC" "BK" "PBF" "PBFX" "SYF" "WFC" "TEVA" "XOM"))
; (print (filter (lambda (x) (= (first x) "CLX")) csv_list))
(print (filter (lambda (x) (member my_tickers (first x))) csv_list))
; (print (filter (lambda (x) (member my_tickers (first x))) csv_list))
(define csv_list (filter (lambda (x) (member my_tickers (first x))) csv_list))
(define sorted_list (quick-sort-by csv_list (lambda (a b) (> (str-to-date (second a) "%m/%d/%Y") (str-to-date (second b) "%m/%d/%Y")))))
(for x csv_list (print x))
(print "Debug ends")