euler003.pl

#!/usr/bin/perl

use Lingua::Romana::Perligata;

adnota find the largest prime factor of 600851475143

targeto 600851475143 da.
sqrto targetum fodementum da.
largesto unum da.
io tres da.

adnota while i < sqrt loop
dum ium tum sqrtum praestantiam fac sic
	si targetum tum ium recidementum tum nullum aequalitam fac sic
		si ium estprimementum tum nullum non aequalitam fac sic
			largesto ium da.
		cis
	cis
	
	io postincresce.
	io postincresce.
cis

largestum comementum tum novumversum egresso scribe.

adnota checks if the number is prime. Only works on values
adnota that are > 9
estprimere
sic
	boolprimo unum da.
	ido duo da.
	testo nullimum horum da.
	rooto testum fodementum da.
	
	dum idum tum rootum praestantiam fac sic
		si testum tum idum recidementum tum nullum aequalitam fac sic
			boolprimo nullus da.
		cis
		
		ido postincresce.
	cis
	
	boolprimum redde.
cis