Last active
May 1, 2020 14:58
-
-
Save zst123/f864b5670c1a85e366854e5f46528bf3 to your computer and use it in GitHub Desktop.
Mea prima programma in Lingua::Romana::Perligata. My first program using Lingua::Romana::Perligata.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use Lingua::Romana::Perligata | |
# 'converte', | |
# 'discribe' | |
# 'investiga', | |
; | |
adnota ========================================================= | |
adnota #[EN] This is my first program. | |
adnota #[LA] haec est mea prima programma. | |
adnota ========================================================= | |
adnota #[EN] Write the text "Hello World!" | |
adnota #[LA] scribe verbum "Salve Munde!" | |
scriptio da dictum sic Salve Munde! cis. | |
scriptium tum novumversum egresso scribe. | |
adnota ========================================================= | |
adnota #[EN] Write the numbers from zero to ten | |
adnota #[LA] scribe numeros a nullum ad decem | |
listis da nullum tum decem conscribementum. | |
per quisque in listis fac sic | |
hoc tum novumversum egresso scribe. | |
cis. | |
adnota ========================================================= | |
adnota #[EN] Get current date using localtime() in list context | |
adnota #[LA] quaerere quod dies est hodie cum localtimeo per liste contextu | |
meis tempis da localtimeementum. | |
adnota # 0 1 2 3 4 5 6 7 8 | |
adnota #($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) | |
dieo da tertium temporum. | |
menso da quartum temporum tum unam addementum. | |
adnota #[EN] Add 1900 because Perl counts years from 1900. | |
adnota #[LA] Adde MCM quod Perligata a MCM anno numerat | |
anno da quintum temporum tum MCM addementum. | |
adnota ========================================================= | |
adnota #[EN] Create a list of the names of the months | |
adnota #[LA] fac index nominum mensibus | |
nomenmensis da lacunam tum dictum sic | |
Menses | |
Januarius | |
Februarius | |
Martius | |
Aprilis | |
Maius | |
Junius | |
Quintilis | |
Sextilis | |
September | |
October | |
November | |
December | |
cis scindementum. | |
adnota per quisque in nomenmensis fac sic | |
adnota hoc tum novumversum egresso scribe. | |
adnota cis. | |
adnota #[EN] Write year, month and date of today | |
adnota #[LA] scribe hodiernis annum, mensum et diem | |
dictum sic Hodie cis egresso scribe tum lacunam. | |
annum comementum egresso scribe tum lacunam. | |
dictum sic anni cis egresso scribe tum lacunam. | |
mensum nomenmensorum egresso scribe tum lacunam. | |
dictum sic mensis cis egresso scribe tum lacunam. | |
dieum comementum egresso scribe tum lacunam. | |
dictum sic dies cis egresso scribe tum lacunam. | |
dictum sic est cis egresso scribe tum novumversum. | |
adnota ========================================================= | |
adnota #[EN] References: | |
adnota #[LA] documenta: | |
adnota # - https://metacpan.org/pod/Lingua::Romana::Perligata | |
adnota # - https://web.eecs.umich.edu/~imarkov/Perligata.html | |
adnota # - http://www.cultus.hk/latin7/lesson_1/perligata.html |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment