m1emi1em.dev
this repo has no description
display results: use format, swap arg order
+5
-8
+5
-8
weather/weather.bb
+5
-8
weather/weather.bb
···
53
53
(-> path slurp str/trim-newline))))
54
54
55
55
(defn display-results
56
-
[{city :place_name state :state_code}
57
-
[[_ temperature] [_ forecast]]]
58
-
(doseq [line [""
59
-
(str "The weather in " city ", " state " is:")
60
-
(str temperature " F")
61
-
(str "Forecast: " forecast)]]
62
-
(println line)))
56
+
[[[_ temperature] [_ forecast]]
57
+
{city :place_name state :state_code}]
58
+
(print (format "\nThe weather in %s, %s is:\n%d F\nForecast: %s\n"
59
+
city state temperature forecast)))
63
60
64
61
(defn get-weather [postal-code]
65
62
(let [{latitude :latitude longitude :longitude :as location} (geocode postal-code)]
···
73
70
first
74
71
(get-all ["temperature" "shortForecast"])
75
72
76
-
(#(display-results location %)))))
73
+
(display-results location))))
77
74
78
75
(defn -main
79
76
([]