[plt-dev] Racket web page

From: Noel Welsh (noelwelsh at gmail.com)
Date: Mon May 24 09:30:41 EDT 2010

On Sat, May 22, 2010 at 5:55 PM, Matthew Flatt <mflatt at cs.utah.edu> wrote:
> I'm disappointed that we're getting so few 7-line program suggestions.
> Please suggest more.

Fun with net and regular expressions:

#lang racket
(require net/url net/uri-codec)
(define (let-me-google-that-for-you term)
  (define google-url
    (string->url (string-append "http://www.google.com/search?q="
(uri-encode term))))
  (regexp-match* #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)" (get-pure-port
(let-me-google-that-for-you "racket language")


Posted on the dev mailing list.