Revision as of 18:23, 28 November 2021 (view source) rosettacode>Johndevou No edit summary ← Older edit		Revision as of 20:23, 3 December 2021 (view source) rosettacode>Johndevou (→‎{{header\|Prolog}}) Newer edit →
Line 394: task:- write("First 20 magic constants are:"), ~~findall(_,~~ forall(between(3,22,N), (m(N,X), format(" ~d",X))~~, _~~), nl, write("The 1000th magic constant is:"), ~~findall(_,~~ forall(m(1002,X), format(" ~d",X)~~), _~~), nl, ~~findall(_,~~ forall(between(1,20,N), (l(10**N,X), format("10^~d:\t~d\n",[N,X]))~~, _~~). </lang> {{out}}

Magic constant: Difference between revisions

Magic constant (view source)