PasteRack.org
Paste # 75154
2019-02-24 14:19:50

Fork as a new paste.

Paste viewed 337 times.


Embed:

match example

  1. #lang racket
  2.  
  3. (define (show x)
  4.   (match x
  5.     [(vector a b c)
  6.      (display "It's a vector, total = ")
  7.      (displayln (+ a b c))]
  8.     [(list p q)
  9.      (display "I's a list, average = ")
  10.      (displayln (/ (+ p q) 2))]))
  11.  
  12. (show (list 8 2))
  13. (show (vector 1 2 3))

=>

I's a list, average = 5

It's a vector, total = 6