Collect and sort square numbers in ascending order from three lists: Difference between revisions
Collect and sort square numbers in ascending order from three lists (view source)
Revision as of 17:47, 29 August 2023
, 8 months agoAdd Factor
imported>Maxima enthusiast No edit summary |
(Add Factor) |
||
Line 196:
[4; 9; 16; 25; 36; 36; 49; 81; 121; 144; 169]
</pre>
=={{header|Factor}}==
{{works with|Factor 0.99}}
<syntaxhighlight lang="factor">
USING: prettyprint project-euler.common sequences sorting ;
{ 3 4 34 25 9 12 36 56 36 }
{ 2 8 81 169 34 55 76 49 7 }
{ 75 121 75 144 35 16 46 35 }
3append [ perfect-square? ] filter sort .
</syntaxhighlight>
{{out}}
<pre>
{ 4 9 16 25 36 36 49 81 121 144 169 }
</pre>
=={{header|FreeBASIC}}==
<syntaxhighlight lang="freebasic">function issquare( n as integer ) as boolean
| |||