src/ellinika/tests/suffix-s.scm


1
2
3
4
5
6
7
8
9
10
11

(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")

(display
 (elstr-suffix? "παρακείμενος" "μενος"))
(newline)
(display
 (elstr-suffix? "παρακείμενος" "μεν"))
(newline)
(display
 (elstr-suffix? "παρακείμενος" "α" "οντας" "μενος"))
(newline)