Steady squares: Difference between revisions
→output}
Line 1,495:
swritef(FrmStr, '~|~t~d~%d+ ~|~t~d~%d+~n', [LastLen, LastSqrLen]),
showList(FrmStr, SteadySquareList).
</syntaxhighlight>
{{out}}
<pre>
?- time(do).
0 0
1 1
5 25
6 36
25 625
76 5776
376 141376
625 390625
9376 87909376
90625 8212890625
109376 11963109376
890625 793212890625
% 900,133 inferences, 0.235 CPU in 0.235 seconds (100% CPU, 3834748 Lips)
true.
</pre>
=={{header|PROMAL}}==
| |||