Conjugate a Latin verb: Difference between revisions

Content added Content deleted

Inline

@@ Line 72: / Line 72: @@
 CONSTANT: pronouns {
     "I"
-    "you (singular)"
+    "you"
     "he, she, it"
     "we"
-    "you (plural)"
+    "you all"
     "they"
 }
@@ Line 98: / Line 98: @@
     dup check-input 3 head* endings [ append ] with map ;
-: conjugate. ( str -- )
+: he/she/it ( str -- newstr )
-    dup "Present active indicative conjugations of %s:\n" printf
+    "s" append dup dup "he %s, she %s, it %s" sprintf ;
-    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"
+    printf la conjugate en english [ "  %-10s%s\n" printf ] 2each ;
+"amāre" "love" conjugate. nl
+"dāre" "give" conjugate.</lang>
 {{out}}
 <pre>
-Present active indicative conjugations of amāre:
+Present active indicative conjugations of amāre (love):
-  I               amō
+  amō       I love
+  amās      you love
-  you (singular)  amās
-  he, she, it     amat
+  amat      he loves, she loves, it loves
-  we              amāmus
+  amāmus    we love
-  you (plural)    amātis
+  amātis    you all love
-  they            amant
+  amant     they love
-Present active indicative conjugations of dāre:
+Present active indicative conjugations of dāre (give):
-  I               dō
+  dō        I give
+  dās       you give
-  you (singular)  dās
-  he, she, it     dat
+  dat       he gives, she gives, it gives
-  we              dāmus
+  dāmus     we give
-  you (plural)    dātis
+  dātis     you all give
-  they            dant
+  dant      they give
 </pre>