37 lines
833 B
Text
37 lines
833 B
Text
$ENTRY Go {
|
|
, <Iota 0 6 100>: e.A
|
|
, <Iota 0 9 100>: e.B
|
|
, <Iota 0 20 100>: e.C
|
|
, <Iota 0 1 100>: e.Nums
|
|
, <SumPairs (e.A) (<SumPairs (e.B) (e.C)>)>: e.Nuggets
|
|
, <RemoveAll (e.Nuggets) e.Nums>: e.NonNuggets
|
|
, e.NonNuggets: e.X s.Last
|
|
= <Prout 'The largest non-McNuggets number < 100 is: ' s.Last>;
|
|
};
|
|
|
|
SumPairs {
|
|
() (e.Y) = ;
|
|
(s.I e.X) (e.Y) = <SumPairs1 s.I (e.Y)> <SumPairs (e.X) (e.Y)>;
|
|
};
|
|
|
|
SumPairs1 {
|
|
s.I () = ;
|
|
s.I (s.X e.X) = <+ s.I s.X> <SumPairs1 s.I (e.X)>;
|
|
};
|
|
|
|
Remove {
|
|
s.I e.X s.I e.Y = e.X <Remove s.I e.Y>;
|
|
s.I e.X = e.X;
|
|
};
|
|
|
|
RemoveAll {
|
|
() e.X = e.X;
|
|
(s.R e.R) e.X = <RemoveAll (e.R) <Remove s.R e.X>>;
|
|
};
|
|
|
|
Iota {
|
|
s.Start s.Step s.End, <Compare s.Start s.End>: {
|
|
'+' = ;
|
|
s.X = s.Start <Iota <+ s.Start s.Step> s.Step s.End>;
|
|
};
|
|
};
|