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ý")