Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- racket@> (define (make-n-func func n)
- (lambda(args) (apply func (take args n))))
- racket@> ((make-n-func + 2) (list 1 2 3 4))
- 3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement