Revision as of 08:20, 5 June 2023 (view source) Aerobar (talk \| contribs) (add RPL) ← Older edit		Revision as of 20:04, 16 June 2023 (view source) Achim121 (talk \| contribs) (→‎{{header\|Prolog}}) Newer edit →
Line 1,481: showList(List, Limit):- findnsols(Limit, X, (member(X, List), writef('%5r', [X])), _), ~~showList(List, Limit, 1).~~ nl, fail. ~~showList([], _, _).~~ showList(~~[H\|TList]~~_, ~~Limit, C~~_):-. ~~writef('%5r', [H]),~~ ~~( C < Limit~~ ~~-> C1 is C + 1~~ ~~; C1 is 1, nl~~ ), ~~showList(TList, Limit, C1).~~ do:-findnsols(100, B, isBrilliant(B), BList),!, showList(BList, 10),nl, findall(N, (between(1, 6, X), N is 10^X), LimitList), ~~numlist(1, 6, NList),~~ ~~maplist([X,Y]>>(Y is 10**X), NList, LimitList),~~ run(LimitList). </syntaxhighlight>

Brilliant numbers: Difference between revisions

Brilliant numbers (view source)