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ý")))
kouzelná hůlka
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ý")
kouzelná hůlka
CC BY-SA 4.0
neprogramator.cz