Sijamuotopeli

2016-02-08T16:39:16+02:00

(require wescheme/fH1ca78qBw)

(define x 0)
(define pisteet (+ 1 x))
(define loppupisteet (- pisteet 1))

;; inessiivi? : merkkijono -> totuusarvo
(define (inessiivi? sana)
(or (string=? "inessiivi" sana)
(string=? "INESSIIVI" sana)
(string=? "Inessiivi" sana)))

(define (elatiivi? sana)
(or (string=? "elatiivi" sana)
(string=? "ELATIIVI" sana)
(string=? "Elatiivi" sana)))

(define (illatiivi? sana)
(or (string=? "illatiivi" sana)
(string=? "ILLATIIVI" sana)
(string=? "Illatiivi" sana)))

(define (adessiivi? sana)
(or (string=? "adessiivi" sana)
(string=? "ADESSIIVI" sana)
(string=? "Adessiivi" sana)))

(define (ablatiivi? sana)
(or (string=? "ablatiivi" sana)
(string=? "ABLATIIVI" sana)
(string=? "Ablatiivi" sana)))

(define (allatiivi? sana)
(or (string=? "allatiivi" sana)
(string=? "ALLATIIVI" sana)
(string=? "Allatiivi" sana)))

(check-expect (inessiivi? "Inessiivi")
#t)

(check-expect (inessiivi? "INESSIIVI")
#t)

(check-expect (inessiivi? "inessiivi")
#t)

(display-value "Vastauksesi oli: "
(if (inessiivi? (display-read "järvessä"))
"Oikein!"
"Väärin! järvessä = inessiivi" ))

(display-value "Vastauksesi oli: "
(if (elatiivi? (display-read "hevosesta"))
"Oikein!"
"Väärin! hevosesta = elatiivi"))

(display-value "Vastauksesi oli: "
(if (illatiivi? (display-read "kauppaan"))
"Oikein!"
"Väärin! kauppaan = illatiivi"))

(display-value "Vastauksesi oli: "
(if (ablatiivi? (display-read "kauralta"))
"Oikein!"
"Väärin! kauralta = ablatiivi"))

(display-value "Vastauksesi oli: "
(if (allatiivi? (display-read "kirjastolle"))
"Oikein!"
"Väärin! kirjastolle = allatiivi."))

Tuotokset

Sijamuotopeli