Author: | erg |
---|---|
Mode: | factor |
Date: | Wed, 26 Aug 2009 19:40:18 |
: 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 ;