PasteRack.org
Paste # 22718
2016-10-19 15:59:31

Forked from paste # 76692.

Fork as a new paste.

Paste viewed 59 times.


Embed:

  1. #lang racket
  2.  
  3.  
  4.  
  5. (define (ite cond thn els)
  6.   (if cond thn els))
  7.  
  8. (define x 3)
  9. (ite (= x 3) (displayln "x is 3") (displayln "x is NOT 3"))

=>

x is 3

x is NOT 3