|
(ns clj-lastfm.examples
|
|
(:use [clj-lastfm.core]))
|
|
|
|
(defn- indexed [s] (map vector (iterate inc 1) s))
|
|
|
|
(defn print-topten-tracks [artist-name]
|
|
(doseq [[idx name]
|
|
(->> artist-name artist-toptracks (take 10) (map :name) indexed)]
|
|
(println (format "%s. %s" idx name)))) |