Paste: random-image.

Author: erg
Mode: factor
Date: Wed, 26 Aug 2009 19:40:18
Plain Text |
: random-image. ( -- seq )
    "http://cgi.4chan.org/b/imgboard.html" scrape-html nip find-images
    [ "thumb" swap subseq? ] filter
    [ "thumb" split1 "src" glue "s" split1-last append ] map random
    [ '[ _ load-http-image image. ] [ drop "Error in decoding" print ] recover ] keep ;

New Annotation

Summary:
Author:
Mode:
Body: