26 lines
490 B
Text
26 lines
490 B
Text
$ENTRY Go {
|
|
= <ShowFirst 8 Happy 1>;
|
|
};
|
|
|
|
ShowFirst {
|
|
0 s.F s.I = ;
|
|
s.N s.F s.I, <Mu s.F s.I>: T =
|
|
<Prout s.I>
|
|
<ShowFirst <- s.N 1> s.F <+ s.I 1>>;
|
|
s.N s.F s.I =
|
|
<ShowFirst s.N s.F <+ s.I 1>>;
|
|
};
|
|
|
|
Happy {
|
|
1 e.X = T;
|
|
s.N e.X s.N e.Y = F;
|
|
s.N e.X = <Happy <SqDigSum s.N> s.N e.X>;
|
|
};
|
|
|
|
SqDigSum {
|
|
0 = 0;
|
|
s.N, <Symb s.N>: s.Ds e.Rs,
|
|
<Numb s.Ds>: s.D,
|
|
<Numb e.Rs>: s.R =
|
|
<+ <* s.D s.D> <SqDigSum s.R>>;
|
|
};
|