verb1.prs

visual prolog7.1学习的极好源代码

verb("FERO", "ind", "pres", ["FERO", "FERS", "FERT", "FERIMUS", "FERTIS", "FERUNT"]).
verb("FERO", "ind", "imperf", ["FEREBAM", "FEREBAS", "FEREBAT", "FEREBAMUS", "FEREBATIS", "FEREBANT"]).
verb("FERO", "subj", "pres", ["FERAM", "FERAS", "FERAT", "FERAMUS", "FERATIS", "FERANT"]).
verb("FERO", "subj", "imperf", ["FERREM", "FERRES", "FERRET", "FERREMUS", "FERRETIS", "FERRENT"]).
presRoot("AMO", "AM", prima).
presRoot("VIDEO", "VIDE", secunda).
presRoot("VIVO", "VIV", tertia).
presRoot("AUDIO", "AUD", quarta).
presRoot("CAPIO", "CAP", mixta).
verb_state("pres", "ind").
verb_state("pres", "subj").
verb_state("imperf", "ind").
verb_state("imperf", "subj").