🐐 Examples
This commit is contained in:
15
examples/sieve.cent
Normal file
15
examples/sieve.cent
Normal file
@@ -0,0 +1,15 @@
|
||||
// Finds all prime numbers up to L (50)
|
||||
|
||||
DESIGNA n VT L
|
||||
|
||||
DONICVM i VT II VSQVE n + I FACE {
|
||||
DESIGNA is_prime VT VERITAS
|
||||
DONICVM k VT II VSQVE i FACE {
|
||||
SI (i / k) * k EST i TVNC {
|
||||
DESIGNA is_prime VT FALSITAS
|
||||
}
|
||||
}
|
||||
SI is_prime TVNC {
|
||||
DICE(i)
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user