Conjugate a Latin verb: Difference between revisions
Content added Content deleted
(Easylang) |
(add RPL) |
||
Line 1,024: | Line 1,024: | ||
datis |
datis |
||
dant |
dant |
||
</pre> |
|||
=={{header|RPL}}== |
|||
≪ DUP SIZE |
|||
DUP2 "aEei" ROT ROT 2 - DUP SUB POS |
|||
→ verb length group |
|||
≪ '''IF''' group length 3 > AND verb length 1 - length SUB "re" == AND '''THEN''' |
|||
{ } |
|||
1 6 '''FOR''' t |
|||
verb 1 length 3 - SUB |
|||
'''IF''' t 1 == '''THEN''' |
|||
{ "" "e" "" "i" } group GET + "o" + |
|||
'''ELSE''' |
|||
{ "a" "e" "i" "i" } group GET + |
|||
'''IF''' t 6 == '''THEN''' |
|||
'''IF''' group 3 == '''THEN''' 1 OVER SIZE 1 - SUB '''END''' |
|||
'''IF''' group 2 > '''THEN''' "u" + '''END''' |
|||
'''END''' |
|||
{ "" "s" "t" "mus" "tis" "nt" } t GET + |
|||
'''END''' |
|||
+ |
|||
'''NEXT''' |
|||
'''ELSE''' "Can't conjugate " verb + '''END''' |
|||
≫ ≫ '<span style="color:blue">CONJV</span>' STO |
|||
≪ { "amare" "vidEre" "tegere" "venire" "abcdef" } → cases |
|||
≪ {} 1 cases SIZE '''FOR''' j cases j GET <span style="color:blue">CONJV</span> '''NEXT''' ≫ ≫ EVAL |
|||
{{out}} |
|||
<pre> |
|||
5: { "amo" "amas" "amat" "amamus" "amatis" "amant" } |
|||
4: { "video" "vides" "videt" "videmus" "videtis" "vident" } |
|||
3: { "tego" "tegis" "tegit" "tegimus" "tegitis" "tegunt" } |
|||
2: { "audio" "audis" "audit" "audimus" "auditis" "audiunt" } |
|||
1: "Can't conjugate abcdef" |
|||
</pre> |
</pre> |
||
Line 1,084: | Line 1,118: | ||
Can not conjugate are |
Can not conjugate are |
||
</pre> |
</pre> |
||
=={{header|V (Vlang)}}== |
=={{header|V (Vlang)}}== |
||
{{trans|Go}} |
{{trans|Go}} |