racketscript/tests/basic/case-lambda.rkt at develop · racketscript/racketscript · GitHub

36 lines (30 loc) · 881 Bytes

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

#lang racket/base

(define lam1

(case-lambda

[(a b c) (* a b c)]

[(a b) (+ a b)]))

(displayln (list (lam1 8 2 3) (* 8 2 3)))

(displayln (list (lam1 3 4) (+ 3 4)))

;(check-exn exn:fail? (λ () (lam1 3 4 5 6)) "no matching clause")

(define lam2

(case-lambda

[() "duh"]

[(a b c) (* a b c)]

[(a b) (+ a b)]

[v (apply + v)]))

(displayln (list (lam2) "duh"))

(displayln (list (lam2 8 2 3) (* 8 2 3)))

(displayln (list (lam2 3 4) (+ 3 4)))

(displayln (list (lam2 3 4 5 6) (+ 3 4 5 6)))

(define lam3

(case-lambda

[() "duh"]

[(a b c) (* a b c)]

[(a b) (+ a b)]

[(a b c . d) (+ a b c (apply * d))]

[v (apply * v)]))

(displayln (list (lam3) "duh"))

(displayln (list (lam3 8 2 3) (* 8 2 3)))

(displayln (list (lam3 3 4) (+ 3 4)))

(displayln (list (lam3 3 4 5 6) (+ 3 4 5 6)))

(displayln (list (lam3 3 4 5 6 7 8 9) (+ 3 4 5 (* 6 7 8 9))))