Steady squares: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add SETL) |
Not a robot (talk | contribs) (Add Refal) |
||
Line 2,180: | Line 2,180: | ||
<pre>[ 0 1 5 6 25 76 376 625 9376 ]</pre> |
<pre>[ 0 1 5 6 25 76 376 625 9376 ]</pre> |
||
=={{header|Refal}}== |
|||
<syntaxhighlight lang="refal">$ENTRY Go { |
|||
= <FindSteady 1 9999>; |
|||
}; |
|||
FindSteady { |
|||
s.N s.Max, <Compare s.N s.Max>: '+' = ; |
|||
s.N s.Max, <Steady <Symb s.N>>: F = <FindSteady <+ s.N 1> s.Max>; |
|||
s.N s.Max = <ShowSteady s.N> <FindSteady <+ s.N 1> s.Max>; |
|||
}; |
|||
ShowSteady { |
|||
s.N = <Prout <Symb s.N> '^2 = ' <* s.N s.N>>; |
|||
}; |
|||
Steady { |
|||
e.N, <Symb <* <Numb e.N> <Numb e.N>>>: e.X e.N = T; |
|||
e.N = F; |
|||
};</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1^2 = 1 |
|||
5^2 = 25 |
|||
6^2 = 36 |
|||
25^2 = 625 |
|||
76^2 = 5776 |
|||
376^2 = 141376 |
|||
625^2 = 390625 |
|||
9376^2 = 87909376</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |