Conjugate a Latin verb: Difference between revisions
→{{header|Factor}}: show English meanings as well
(Add Factor) |
(→{{header|Factor}}: show English meanings as well) |
||
Line 72:
CONSTANT: pronouns {
"I"
"you
"he, she, it"
"we"
"you
"they"
}
Line 98:
dup check-input 3 head* endings [ append ] with map ;
:
"s" append dup dup "
pronouns swap conjugate [ " %-16s%s\n" printf ] 2each ;▼
: english ( str -- seq )
"amāre" conjugate. nl▼
pronouns [ 2 = [ nip he/she/it ] [ " " glue ] if ] with
"dāre" conjugate.</lang>▼
map-index ;
:: conjugate. ( la en -- )
la en "Present active indicative conjugations of %s (%s):\n"
▲"amāre" "love" conjugate. nl
▲"dāre" "give" conjugate.</lang>
{{out}}
<pre>
Present active indicative conjugations of amāre (love):
amās you love
amat he loves, she loves, it
Present active indicative conjugations of dāre (give):
dās you give
dat he gives, she gives, it
</pre>
| |||