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