Print finished World Cup match results

core.clj

(ns wc.core
  (:require [clj-http.client :as client]))

(defn print-matchs-over []
  (let [data-request (client/get "http://worldcup.sfg.io/matches" {:as :json-strict})
        completed (filter #(= (:status %) "completed") (:body data-request))]
    (doseq [{home-team :home_team away-team :away_team} completed]
      (println (str (:country home-team) " " (:goals home-team) " x "
                    (:country away-team) " " (:goals away-team))))))

(defn -main
  [& args]
  (print-matchs-over))