handball/src/test/run-pass/curry.scm

11 lines
152 B
Scheme

#lang scheme
(define (displayln x)
(display x)
(newline))
(define (curry2 f)
(lambda (l) (lambda (r) (f l r))))
(displayln (((curry2 +) 1) 2))