Wolfram Language (Mathematica), 192
StringJoin /@ (Cases[ URLExecute["www.google.com/search", {"q" -> #}, "XMLObject"], XMLElement["cite", _, l_] :> l, -1] /. XMLElement["b", _, {s_}] :> s) & chuy
- 399
- 1
- 5
Wolfram Language (Mathematica), 192
StringJoin /@ (Cases[ URLExecute["www.google.com/search", {"q" -> #}, "XMLObject"], XMLElement["cite", _, l_] :> l, -1] /. XMLElement["b", _, {s_}] :> s) &