16 lines
271 B
Plaintext
16 lines
271 B
Plaintext
// Finds all prime numbers up to L (50)
|
|
|
|
DESIGNA n VT L
|
|
|
|
DONICVM i VT II VSQVE n FACE {
|
|
DESIGNA is_prime VT VERITAS
|
|
DONICVM k VT II VSQVE i - I FACE {
|
|
SI (i / k) * k EST i TVNC {
|
|
DESIGNA is_prime VT FALSITAS
|
|
}
|
|
}
|
|
SI is_prime TVNC {
|
|
DICE(i)
|
|
}
|
|
}
|