iris

small scheme interpreter
git clone git://git.2f30.org/iris
Log | Files | Refs | LICENSE

map.scm (190B)


      1 (define map (lambda (proc items)
      2 	      (if (null items)
      3 		  '()
      4 		  (cons (proc (car items))
      5 			(map proc (cdr items))))))
      6 
      7 (define double (lambda (n) (plus n n)))
      8 
      9 (map double '(0 1 2 3))