Collect and sort square numbers in ascending order from three lists: Difference between revisions
Content added Content deleted
imported>Maxima enthusiast No edit summary |
(Add Factor) |
||
Line 196: | Line 196: | ||
[4; 9; 16; 25; 36; 36; 49; 81; 121; 144; 169] |
[4; 9; 16; 25; 36; 36; 49; 81; 121; 144; 169] |
||
</pre> |
</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}}== |
=={{header|FreeBASIC}}== |
||
<syntaxhighlight lang="freebasic">function issquare( n as integer ) as boolean |
<syntaxhighlight lang="freebasic">function issquare( n as integer ) as boolean |