change file extension to .lsp

debug.lisp

@@ -1,22 +0,0 @@
-(print "Debug starts")
-
-(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))
-
-(print (filter (lambda (x) (= (first x) "CLX")) csv_list))
-
-(print "Debug ends")

debug.lsp

@@ -0,0 +1,42 @@
+(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 '("WFC" "AIG"))
+
+; (print (filter (lambda (x) (= (first x) "CLX")) csv_list))
+(print (filter (lambda (x) (member my_tickers (first x))) csv_list))
+
+(print "Debug ends")