mizonokuchi

scheme practice

Oct 23rd, 2012
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.12 KB | None | 0 0
  1. (define  (p i array)
  2.   (if (= i 0) array (p (- i 1) (cons (lambda () (print i)) array))))
  3.  
  4. (map (lambda (f) (f)) (p 10 '()))
Advertisement
Add Comment
Please, Sign In to add comment