Brilliant numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,481: / 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):-
+showList(_, _).
-	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>