Hádání náhodného čísla ve Scheme

Program porovnává dvě čísla. Jedno je vložené od uživatele a druhé je náhodně vygenerované v nastaveném rozsahu (výchozí rozsah je 0 až 10).


(define Hadam_cislo
   (lambda (X)
      (if (= X R)
          (display "Spravne") 
          (display "Spatne") 
          )
    ))
(define R
 (random 10))
(Hadam_cislo 3)

pjgggddd