SHARE
TWEET

Robert Fisher

a guest Mar 5th, 2009 384 Never
  1. #!r6rs
  2. (import (rnrs))
  3.  
  4. (define text '("#!r6rs\n(import (rnrs))\n(define text '"
  5.                #f
  6.                ")\n(for-each(lambda(item)(if item(display item)(write text)))text)\n"))
  7.  
  8. (for-each (lambda (item)
  9.             (if item
  10.                 (display item)
  11.                 (write text)))
  12.           text)
RAW Paste Data
Top