25 lines
845 B
Racket
25 lines
845 B
Racket
#lang afl racket/base
|
|
(module+ test
|
|
(require rackunit)
|
|
(check-equal? (map #λ(+ % 1) '(1 2 3))
|
|
'(2 3 4))
|
|
(check-equal? (map #λ(+ % %2) '(1 2 3) '(1 2 3))
|
|
'(2 4 6))
|
|
(check-equal? (#λ(apply list* % %&) 1 '(2 3))
|
|
'(1 2 3))
|
|
(check-equal? (#λ(* 1/2 %#:m (* %#:v %#:v)) #:m 2 #:v 1)
|
|
1)
|
|
(check-equal? (let ([x (#λ"I am x")])
|
|
(#λx))
|
|
"I am x")
|
|
(check-equal? (#λ(begin (set! % "%") %1) "%1")
|
|
"%")
|
|
(check-equal? (let ([lambda "not lambda"]
|
|
[define-syntax "not define-syntax"]
|
|
[make-rename-transformer "not"]
|
|
[syntax "not"])
|
|
(let-syntax ([#%app (syntax-rules () [(app f x) (f 4)])])
|
|
(#λ% 3)))
|
|
4)
|
|
)
|