49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
(print "Debug starts")
|
|
|
|
; add support for ()
|
|
|
|
(print "(member '(1 2 3) 1:" (member '(1 2 3) 1))
|
|
(print "(member '(1 2 3) 3:" (member '(1 2 3) 3))
|
|
(print "(member '(1 2 3) 30:" (member '(1 2 3) 30))
|
|
|
|
|
|
(print "result of (and (> 2 1) (> 2 1)): " (and (> 2 1) (> 2 1)))
|
|
(print "result of (or (> 2 1) (> 2 1)): " (or (> 2 1) (> 2 1)))
|
|
(print "result of (and (> 2 1) (> 1 2)): " (and (> 2 1) (> 1 2)))
|
|
(print "result of (or (> 2 1) (> 1 2)): " (or (> 2 1) (> 1 2)))
|
|
(print "result of (and (> 1 1) (> 1 2)): " (and (> 1 1) (> 1 2)))
|
|
(print "result of (or (> 1 1) (> 2 1)): " (or (> 1 1) (> 1 2)))
|
|
|
|
;; (print (member '(1 2 3) 1))
|
|
;; (print (member '(1 2 3) 10))
|
|
|
|
|
|
(define csv_list '())
|
|
(for f (ls-dir "tests/divi")
|
|
(if (regex-search? f "^divi.*\.csv$")
|
|
(do
|
|
(define filename (+ "tests/divi/" f))
|
|
; (print filename)
|
|
(define csv_str (read-file filename))
|
|
(define csv_file_list (parse-csv csv_str))
|
|
(define csv_list (+ csv_list csv_file_list))
|
|
)
|
|
))
|
|
|
|
;; (for x csv_list (print x))
|
|
|
|
(print (len csv_list))
|
|
|
|
(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))
|
|
(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")
|