mirror of
https://github.com/johnkerl/miller.git
synced 2026-07-25 00:48:56 +00:00
22 lines
374 B
Text
22 lines
374 B
Text
# Sieve of Eratosthenes: simple example of Miller DSL as programming language.
|
|
begin {
|
|
@n = 100;
|
|
}
|
|
@n = $n;
|
|
end {
|
|
for (int i = 0; i <= @n; i += 1) {
|
|
@s[i] = true;
|
|
}
|
|
@s[0] = false;
|
|
@s[1] = false;
|
|
for (int i = 2; i <= @n; i += 1) {
|
|
for (int j = i+i; j <= @n; j += i) {
|
|
@s[j] = false;
|
|
}
|
|
}
|
|
for (int i = 0; i <= @n; i += 1) {
|
|
if (@s[i]) {
|
|
print i;
|
|
}
|
|
}
|
|
}
|