mapreduce.clj

(reduce                          ; Kootaan yks mappi sanoista.
  (partial merge-with +)         ; Kahdessa mapissa olevien avainten arvot summataan.
  (map                           ; Suorittaa alla olevan funktion kaikille tiedostoille ({"foo" 1} {"baz" 10}).
    #(frequencies                ; Frequencies palauttaa mapin esiintymistä {"foo" 1, "bar" 4}.
      (re-seq #"\w+" (slurp %))) ; Lukee tiedoston ja luo sekvenssin sanoista.
    files))                      ; Lista tiedostoista.