9 lines
286 B
Clojure
9 lines
286 B
Clojure
|
(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))))
|