Conjugate a Latin verb: Difference between revisions
→{{header|Raku}}: Add a Raku example
m (julia example) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
||
Line 163:
</pre>
=={{header|Raku}}==
Translation of Julia.
<lang perl6>for <amāre dare> -> $infinitive {
say "\nPresent active indicative conjugation of infinitive $infinitive.";
my $verb = ($infinitive ~~ /^ (\w+) ['a'|'ā'] 're' $/)[0];
say $verb ?? (conjugate $verb) !! "Sorry, don't know how to conjugate $infinitive"
}
sub conjugate ($verb) { ($verb X~ <ō ās at āmus ātis ant>).join: "\n" }</lang>
{{out}}
<pre>Present active indicative conjugation of infinitive amāre.
amō
amās
amat
amāmus
amātis
amant
Present active indicative conjugation of infinitive dare.
dō
dās
dat
dāmus
dātis
dant</pre>
=={{header|REXX}}==
| |||