The power of dynamic languages

session.clj

$ lein repl

user=> (def res (slurp "http://www.bbc.co.uk/tv/programmes/genres/drama/scifiandfantasy/schedules/upcoming.json"))

user=> (require 'clojure.data.json 'clojure.walk)
user=> (def json (->> res clojure.data.json/read-str 
                      clojure.walk/keywordize-keys))

user=> (->> json :broadcasts (filter #(>= (:duration %) 6300)) 
            (map :programme) (map (juxt :title :pid)))
(["Lady in the Water" "b00l5wdn"] ["Lady in the Water" "b00l5wdn"] ["Lady in the Water" "b00l5wdn"] ["Lady in the Water" "b00l5wdn"])

session.fs

$ fsharpi

> #r "FSharp.Data.dll";;

> type Data = JsonProvider<"http://www.bbc.co.uk/tv/programmes/genres/drama/scifiandfantasy/schedules/upcoming.json">;;
type Data = JsonProvider<...>

> let json = Data.GetSample();;
val json : JsonProvider<...>.DomainTypes.Entity =
  {JsonValue = ... }

> json.Broadcasts |> Seq.filter (fun m -> m.Duration >= 6300) 
                  |> Seq.map (fun m -> m.Programme) 
                  |> Seq.map (fun m -> [ m.Title; m.Pid ]);;
val it : seq<string list> =                                    
  seq [["b0015wdn"; "Lady in the Water"]; ["b0015wdn"; "Lady in the Water"]; ["b0015wdn"; "Lady in the Water"]]

session.scala

$ scala

scala> val res = scala.io.Source.fromURL("http://www.bbc.co.uk/tv/programmes/genres/drama/scifiandfantasy/schedules/upcoming.json").mkString
res: String = Option = "{ ... }"

scala> import scala.util.parsing.json._
scala> val json = JSON.parseFull(res)
json: Option[Any] = Some(Map( ... )) 

scala> val broadcasts = json match { case Some(m: Map[String,List[Map[String,Any]]]) => m("broadcasts") }
// warnings... 
broadcasts: List[Map[String,Any]] = List(Map( ... ))

scala> broadcasts filter (_("duration").asInstanceOf[Double] >= 6300 ) 
                  map (_("programme").asInstanceOf[Map[String,Any]]) 
                  map (m => (m("title"),m("pid")))
res47: List[(Any, Any)] = List((Lady in the Water,b00l5wdn), (Lady in the Water,b00l5wdn), (Lady in the Water,b00l5wdn), (Lady in the Water,b00l5wdn))