Magic constant: Difference between revisions

Content added Content deleted

Inline

@@ Line 394: / Line 394: @@
 task:-
-    write("First 20 magic constants are:"), findall(_, (between(3,22,N), m(N,X), format(" ~d",X)), _), nl,
+    write("First 20 magic constants are:"), forall(between(3,22,N), (m(N,X), format(" ~d",X))), nl,
-    write("The 1000th magic constant is:"), findall(_, (m(1002,X), format(" ~d",X)), _), nl,
+    write("The 1000th magic constant is:"), forall(m(1002,X), format(" ~d",X)), nl,
-    findall(_, (between(1,20,N), l(10**N,X), format("10^~d:\t~d\n",[N,X])), _).
+    forall(between(1,20,N), (l(10**N,X), format("10^~d:\t~d\n",[N,X]))).
 </lang>
 {{out}}