www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

test-aful-at-exp-racket.rkt (644B)

      1 #lang aful at-exp racket/base
      2 (require rackunit)
      3 (check-equal? (map #λ(+ % 1) '(1 2 3))
      4               '(2 3 4))
      5 (check-equal? (map #λ(+ % %2) '(1 2 3) '(1 2 3))
      6               '(2 4 6))
      7 (check-equal? (#λ(apply list* % %&) 1 '(2 3))
      8               '(1 2 3))
      9 (check-equal? (#λ(* 1/2 %#:m (* %#:v %#:v)) #:m 2 #:v 1)
     10               1)
     11 (check-equal? (let ([x (#λ"I am x")])
     12                 (#λx))
     13               "I am x")
     14 (check-equal? (#λ(begin (set! % "%") %1) "%1")
     15               "%")
     16 (check-equal? (map #λ@+[% 1] '(1 2 3))
     17               '(2 3 4))
     18 (check-equal? @#λ(+ % 1)[1] 
     19               2)
     20 (check-equal? @#λ@+[% 1][1]
     21               2)