Conjugate a Latin verb: Difference between revisions
Content added Content deleted
Line 71: | Line 71: | ||
let myLatin (n:string)=printfn "Rogatus sum iungere verbum %s" n |
let myLatin (n:string)=printfn "Rogatus sum iungere verbum %s" n |
||
match n.Length>3,n.[-3..]="are" with |
match n.Length>3,n.[-3..]="are" with |
||
(false,_)|(_,false)->printfn "facis quod" |
(false,_)|(_,false)->printfn " facis quod" |
||
|_->["o";"as";"at";"amus";"atis";"ant"]|>List.iter(fun g->printfn "%s%s" n.[0.. -4] g) |
|_->["o";"as";"at";"amus";"atis";"ant"]|>List.iter(fun g->printfn " %s%s" n.[0.. -4] g) |
||
myLatin "amare" |
myLatin "amare" |
||
myLatin "executio" |
myLatin "executio" |
||
Line 79: | Line 79: | ||
<pre> |
<pre> |
||
Rogatus sum iungere verbum amare |
Rogatus sum iungere verbum amare |
||
amo |
amo |
||
amas |
amas |
||
amat |
amat |
||
amamus |
amamus |
||
amatis |
amatis |
||
amant |
amant |
||
Rogatus sum iungere verbum executio |
Rogatus sum iungere verbum executio |
||
facis quod |
facis quod |
||
</pre> |
</pre> |
||