mirror of https://github.com/voidlizard/hbs2
42 lines
399 B
Scheme
42 lines
399 B
Scheme
|
|
(cond
|
|
((eq? 1 1) (print "1" :== "1"))
|
|
(_ (print "none") )
|
|
)
|
|
|
|
(define a 42)
|
|
|
|
(newline)
|
|
|
|
(cond
|
|
((eq? a 2) (print "1" :== "1"))
|
|
((gt? a 5) (print "a > 5"))
|
|
(_ (print "none") )
|
|
)
|
|
|
|
(newline)
|
|
|
|
(cond
|
|
((eq? a 2) (print "1" :== "1"))
|
|
((gt? a 100) (print "a > 100"))
|
|
(_ (print "none") )
|
|
)
|
|
|
|
(newline)
|
|
|
|
(cond
|
|
(#t "true")
|
|
(_ "false" )
|
|
)
|
|
|
|
(cond
|
|
((not #t) "not true")
|
|
(_ "false" )
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
|