Election polling summary

#!/usr/bin/env bb

(require '[babashka.curl :as curl])

(let [{:keys [body status]}
      (curl/get "https://projects.fivethirtyeight.com/2020-election-forecast/us_simulations.json")
      winner-map
      (->> true
           (json/parse-string body)
           first
           :simulations
           (map :winner)
           frequencies)]
  (doseq [[k v] winner-map]
    (printf "%12s %3d\n" k v)))

Thanks! Babashka is so cool for this kind of use case.