DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »VERBER.SCL«

└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
    └─⟦this⟧ »VERBER.SCL« 

TextFile

; Kurt Fleckner 6. juli 1985
;
; Bøjning af franske verber
; =========================
vælg_een bøj
  ; Regel, der bruges når Verbum er kendt
  bøj(Verbum,Person,Resultat) hvor 
       streng(Verbum) hvis 
       find_type(Verbum,Type,Stamme),
       bøjning(Type,Person,Endelse) og 
       sammensæt(Stamme,Endelse,Resultat).
  ; Regel, der bruges til at finde navnemåde af et verbum,
  ; når Resultat er kendt, men Verbum ikke re
  bøj(Verbum,Person,Resultat) hvor 
       streng(Resultat) hvis 
       bøjning(Type,Person,Endelse),
       sammensæt(Stamme,Endelse,Resultat) og 
       find_type(Verbum,Type,Stamme).
slut.
find_type(Verbum,Type,Stamme) hvis 
     endelse_gruppe(Endelse,Type) og 
     sammensæt(Stamme,Endelse,Verbum).
bøjning(1,'je','e').
bøjning(1,'tu','es').
bøjning(1,'il','e').
bøjning(1,'elle','e').
bøjning(1,'nous','ons').
bøjning(1,'vous','ez').
bøjning(1,'Ils','ent').
bøjning(1,'Elles','ent').
bøjning(2,'je','is').
bøjning(2,'tu','is').
bøjning(2,'il','it').
bøjning(2,'elle','it').
bøjning(2,'nous','issons').
bøjning(2,'vous','issez').
bøjning(2,'Ils','issent').
bøjning(2,'Elles','issent').
bøjning(3,'je','s').
bøjning(3,'tu','s').
bøjning(3,'il','(t)').
bøjning(3,'elle','(t)').
bøjning(3,'nous','ons').
bøjning(3,'vous','ez').
bøjning(3,'Ils','ent').
bøjning(3,'Elles','ent').
endelse_gruppe('er',1).
endelse_gruppe('ir',2).
endelse_gruppe('re',3).
; SLUT på franske verber
«eof»