PasteRack.org
Paste # 10755
2019-01-09 21:52:49

Fork as a new paste.

Paste viewed 106 times.


Embed:

define and cond > let and if and begin

  1. #lang racket/base
  2.  
  3. (define here? #false)
  4.  
  5.  
  6.  
  7. (if (> 100 2)
  8.     (let ([w 13])
  9.       (+ 100 w))
  10.     (if (<= 100 10)
  11.         (begin
  12.           (set! here? #true)
  13.           100)
  14.         (let ([x 5]
  15.               [z (* 8 2)])
  16.           (- x z))))
  17.  
  18. ;; v.s.
  19.  
  20. (cond
  21.   [(> 100 2)
  22.    (define w 13)
  23.    (+ 100 w)]
  24.   [(<= 100 10)
  25.    (set! here? #true)
  26.    100]
  27.   [else
  28.    (define x 5)
  29.    (define z (* 8 2))
  30.    (- x z)])

=>

113

113