22 lines
644 B
Plaintext
22 lines
644 B
Plaintext
#lang afdl at-exp racket/base
|
|
(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? (map #λ@+[% 1] '(1 2 3))
|
|
'(2 3 4))
|
|
(check-equal? @#λ(+ % 1)[1]
|
|
2)
|
|
(check-equal? @#λ@+[% 1][1]
|
|
2)
|