PasteRack.org
Paste # 75485
2020-07-16 09:51:14

Fork as a new paste.

Paste viewed 347 times.


Embed:

matching definitions in racket

  1. #lang racket
  2.  
  3. (define apple "apple")
  4. (define orange "orange")
  5. (define banana "banana")
  6.  
  7. (match (list "apple" "banana")
  8.   [(list (== apple) (== orange))
  9.    (displayln "found apple and orange")]
  10.  
  11.   [(list "apple")
  12.    (displayln "found apple")]
  13.  
  14.   [(list "orange")
  15.    (displayln "found orange")]
  16.  
  17.   [(list (== apple) (== banana))
  18.    (displayln "found apple and banana")])
  19.  
  20. ;; => returns "found apple and banana"

=>

found apple and banana