Conjugate a Latin verb: Difference between revisions

 

=={{header|ALGOL 68}}==

PROC s length = ( STRING s )INT: ( UPB s + 1 ) - LWB s; # calculates the length of s #

# prints the cojugations of lv or an error message if we don't know how to conjugate lv #

print conjugations( "are" )

END

{{out}}

<pre>

=={{header|Arturo}}==

{{trans|Nim}}

{are}: ["o" "as" "at" "amus" "atis" "ant"]

{ēre}: ["eo" "es" "et" "emus" "etis" "ent"]

]

print ""

 

{{out}}

 

=={{header|F_Sharp|F#}}==

// Conjugate a Latin Verb. Nigel Galloway: September 17th., 2021

let myLatin (n:string)=printfn "Rogatus sum iungere verbum %s" n

myLatin "amare"

myLatin "creo"

{{out}}

<pre>

=={{header|Factor}}==

{{works with|Factor|0.99 2021-06-02}}

 

CONSTANT: pronouns {

 

"amāre" "love" conjugate. nl

{{out}}

<pre>

=={{header|FreeBASIC}}==

{{trans|Wren}}

Dim As String ending(1 To 6) => {"o", "as", "at", "amus", "atis", "ant"}

conjugate("qwerty")

conjugate("are")

{{out}}

<pre>Praesens indicativi temporis of 'amare':

{{trans|Wren}}

The 'extended' version.

 

import (

conjugate(pair[0], pair[1])

}

 

{{out}}

 

====Part 1====

if endswith("are") | not

then "\(.) is not a first conjugation verb." | error

 

("amare", "dare")

{{out}}

As for [[#Wren]].

 

====Part 2====

 

def endings: [

 

pairs[]

{{out}}

As for [[#Wren]].

 

=={{header|Julia}}==

conjugate(w, gregex = r"[aā]re$") = (r = replace(w, gregex => ""); [r * s for s in conjugators])

 

 

testregularconjugation(["amāre", "dare"])

<pre>

Present active indicative conjugation of amāre:

{{trans|Go}}

{{Works with|Nim|1.6.0}}

 

const

 

for (infinitive, english) in {"amare": "love", "vidēre": "see", "ducere": "lead", "audire": "hear"}:

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use feature 'say';

my($verb) = $infinitive =~ /^ (\w+) [aā] re $/x;

say $verb ? conjugate $verb : "Sorry, don't know how to conjugate $infinitive"

{{out}}

<pre>Present active indicative conjugation of infinitive amāre.

=={{header|Phix}}==

TL; DR: Did just one term of Latin, right before posting this realised 'dāre' should probably be 'dare', left as an exercise...

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">ending</span><span style="color: #0000FF;">,</span><span style="color: #000000;">endings</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">columnize</span><span style="color: #0000FF;">({{</span><span style="color: #008000;">"āre"</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"ō ās at āmus ātis ant"</span><span style="color: #0000FF;">)},</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"unicode_align"</span><span style="color: #0000FF;">,</span><span style="color: #004600;">true</span><span style="color: #0000FF;">})</span>

<span style="color: #7060A8;">papply</span><span style="color: #0000FF;">({{</span><span style="color: #008000;">"amāre"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"love"</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"dāre"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"give"</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"vidēre"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"see"</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"dūcere"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"lead"</span><span style="color: #0000FF;">},{</span><span style="color: #008000;">"audīre"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"hear"</span><span style="color: #0000FF;">}},</span><span style="color: #000000;">conjugate</span><span style="color: #0000FF;">)</span>

{{out}}

<pre>

=={{header|Python}}==

{{trans|Wren}}

 

if __name__ == '__main__':

for infinitive in ("amare", "dare", "qwerty", "are"):

 

 

{{trans|Julia}}

 

say "\nPresent active indicative conjugation of infinitive $infinitive.";

my $verb = ($infinitive ~~ /^ (\w+) ['a'|'ā'] 're' $/)[0];

}

 

{{out}}

<pre>Present active indicative conjugation of infinitive amāre.

=={{header|REXX}}==

Checks were also made to ensure the Latin verb has only Latin letters (upper and/or lower case).

parse arg verbs

if verbs='' | verbs="," then verbs= 'amare dare'

exit 0 /*stick a fork in it, we're all done. */

/*──────────────────────────────────────────────────────────────────────────────────────*/

{{out|output|text=&nbsp; when using the default inputs:}}

<pre>

 

=={{header|Wren}}==

if (!infinitive.endsWith("are")) Fiber.abort("Not a first conjugation verb.")

var stem = infinitive[0...-3]

}

 

 

{{out}}

{{libheader|Wren-fmt}}

The following extended version can deal with regular verbs of all four conjugations. To distinguish 2nd and 3rd conjugations, a bar is placed above the penultimate 'e' in a second conjugation infinitive but accents are otherwise ignored. English meanings have also been added.

 

var endings = [

 

var pairs = [["amare", "love"], ["vidēre", "see"], ["ducere", "lead"], ["audire", "hear"]]

 

{{out}}