Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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)
- (define (absolutni_hodnota cislo) (if (>= cislo 0) cislo (+ cislo (* cislo -2))))
- (absolutni_hodnota -50)
- (define (signum cislo) (cond ((> cislo 0) 1) ((= cislo 0) 0) (else -1)))
- (signum -1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement