24 lines
477 B
Text
24 lines
477 B
Text
$ENTRY Go {
|
|
= <Prout <Filter Wilson <Iota 100>>>;
|
|
};
|
|
|
|
Wilson {
|
|
s.N, <Compare s.N 2>: '-' = F;
|
|
s.N = <Wilson s.N 1 <- s.N 1>>;
|
|
s.N s.A 1, <- s.N 1>: { s.A = T; s.X = F; };
|
|
s.N s.A s.C = <Wilson s.N <Mod <* s.A s.C> s.N> <- s.C 1>>;
|
|
};
|
|
|
|
Iota {
|
|
s.N = <Iota 1 s.N>;
|
|
s.N s.N = s.N;
|
|
s.N s.M = s.N <Iota <+ 1 s.N> s.M>;
|
|
};
|
|
|
|
Filter {
|
|
s.F = ;
|
|
s.F t.I e.X, <Mu s.F t.I>: {
|
|
T = t.I <Filter s.F e.X>;
|
|
F = <Filter s.F e.X>;
|
|
};
|
|
};
|