Fichier condex.res / 17 fevrier 2000

Welcome to DrScheme, version 53.
Language: R4RS+.

> #t
#t

> #f
#f

> (= 3 4)
#f

> (< 4 5)
#t

> (= 3 (+ 2 1))
#t

> (or (= 3 2) (> 3 2))
#t
  
> (or (= 3 2) (< 3 2))
#f

> (and (= 3 2) (> 3 2))
#f

> (or #f #f #f  #t #f)
#t

> (define (toto? x) (or (< x 0) (> x 2)))

> toto?
#<procedure:toto?>

> (toto? 1)
#f

> (toto? 3)
#t

> (if (= 3 3) 1 0)
1

> (if (= 3 2) 1 0)
0

> (if (toto? 1) (+ 2 3) (* 2 3))
6

> (define (titi x) (if (< x 0) (- x) x))

> (titi 4)
4

> (titi -4)
4

> (titi 0)
0