A collection of implementations for managing a simple security portfolio centered around SICP 6.001.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

25 lines
830 B

#!/bin/env gxi
(import :std/net/request)
#|(print (request-text
(http-get "https://apidojo-yahoo-finance-v1.p.rapidapi.com/market/v2/get-quotes?symbols=AMD%252CIBM%252CAAPL&region=US"
headers: '( ("x-rapidapi-host" . "apidojo-yahoo-finance-v1.p.rapidapi.com")
("x-rapidapi-key" . "98c32048f8mshe6f4d8a686ddce9p18cc5ajsn8b8888e7e256") )
)
) )
(http-get "https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol=VBU.TO&apikey=EC4C0NRKZAK1Q2UG")
(print "Hello, Asshole!")
|#
(let
((stock-symbol "VCN.TO")
(api-function "TIME_SERIES_DAILY")
(api-key "EC4C0NRKZAK1Q2UG")
(api-url "https://www.alphavantage.co/") )
(print (request-text (http-get
(string-join (list api-url "query?function=" api-function
"&symbol=" stock-symbol "&apikey=" api-key) "" ) ))) )