racket - 5.12.2017

(define (sude_nebo_liche cislo) (if (= (modulo cislo 2) 0) "Jde o sudé číslo." "Jde o liché číslo."))
(sude_nebo_liche 10)

(define (je_vetsi cisloa cislob) (if (> cisloa cislob) cisloa cislob))
(je_vetsi 10 20)

(define (je_vetsi_z_trojice cisloa cislob cisloc) (if (> cisloa cislob) (if (> cisloa cisloc) cisloa cisloc) (if (> cislob cisloc) cislob cisloc)))
(je_vetsi_z_trojice 150 350 180)

(define (faktorial cislo) (if (< cislo 0) "Faktoriál nemůže být menší než 0!" (if (= cislo 1) 1 (* (faktorial (- cislo 1)) cislo))))
(faktorial 6)