http://snippets.dzone.com/posts Mon, 06 Oct 2008 06:52:19 GMT DZone Snippets: alphabet code http://snippets.dzone.com/posts/show/2789 // it uses my FLICKR context for newLISP <br />// demo available at http://terpri.com <br /><code> <br />(define (alphabet-flickr myletter, alph y myurl) <br /> (setq alph (xml-digest (FLICKR "flickr.groups.pools.getPhotos" nil <br /> (append "group_id=27034531@N00&tags=" myletter)))) <br /> (setq alph (clean nil? (map (lambda(x) (if (= myletter ((x (chop(ref 'title x))) 1)) x)) (\ <br />2 -1 (alph 0 2))))) <br /> (setq y (first (randomize (sequence 0 (length alph))))) <br /> (setq y (alph y 1)) <br /> (setq myurl (format "http://static.flickr.com/%s/%s_%s_s.jpg" <br /> (lookup 'server y)(lookup 'id y)(lookup 'secret y))) <br /> (println "<img src=" myurl " border=0>")) <br /> <br /> (if (= page-name "Home") <br /> (begin <br /> (println {<div class="flickr_banner">}) <br /> (map (lambda (x) (alphabet-flickr x)) '("T" "E" "R" "P" "R" "I")) <br /> (println "</div>"))) <br /></code> Fri, 06 Oct 2006 00:39:41 GMT http://snippets.dzone.com/posts/show/2789 frontera000 (bob bae)