Neprogramátor/Krátká chemická myšlenka
(define (oxidační-číslo->koncovka oxidační-číslo)
(cond ((= 1 oxidační-číslo) "-ný")
((= 2 oxidační-číslo) "-natý")
((= 3 oxidační-číslo) "-itý")
((= 4 oxidační-číslo) "-ičitý")
((= 5 oxidační-číslo) "-ičný, -ečný")
((= 6 oxidační-číslo) "-ový")
((= 7 oxidační-číslo) "-istý")
((= 8 oxidační-číslo) "-ičelý")
((= 9 oxidační-číslo) "-utý")))
O čem kouzelný text je? Jak to ověřit?
Kouzelný text pojednává o koncovkách oxidačních čísel.
(define (test-koncovky-pro oxidační-číslo koncovka)
(string-append "Koncovka oxidačního čísla "
(number->string oxidační-číslo)
" má být '" koncovka "' a je '"
(oxidační-číslo->koncovka oxidační-číslo)
"'."))
(test-koncovky-pro 1 "-ný")
(test-koncovky-pro 2 "-natý")
(test-koncovky-pro 3 "-itý")
(test-koncovky-pro 4 "-ičitý")
(test-koncovky-pro 5 "-ičný, -ečný")
(test-koncovky-pro 6 "-ový")
(test-koncovky-pro 7 "-istý")
(test-koncovky-pro 8 "-ičelý")
(test-koncovky-pro 9 "-utý")