Odd and square numbers: Difference between revisions
Content added Content deleted
(Added Euler) |
(Added Fe) |
||
Line 411: | Line 411: | ||
<pre> |
<pre> |
||
121 169 225 289 361 441 529 625 729 841 961 |
121 169 225 289 361 441 529 625 729 841 961 |
||
</pre> |
|||
=={{header|Fe}}== |
|||
<syntaxhighlight lang="clojure"> |
|||
(= oddAndSquareNumbers |
|||
(fn (minNumber maxNumber) |
|||
(let toNext 8) |
|||
(let oddSquare 1) |
|||
(let lastResult (cons 0 nil)) ; result list with a dummy leading 0 |
|||
(let result lastResult) |
|||
(while (< oddSquare maxNumber) |
|||
(if (< minNumber oddSquare) |
|||
(do (setcdr lastResult (cons oddSquare nil)) |
|||
(= lastResult (cdr lastResult)) |
|||
) |
|||
) |
|||
(= oddSquare (+ oddSquare toNext)) |
|||
(= toNext (+ toNext 8)) |
|||
) |
|||
(cdr result) ; return result without the dummy leading 0 |
|||
) |
|||
) |
|||
(print (oddAndSquareNumbers 100 1000)) |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
(121 169 225 289 361 441 529 625 729 841 961) |
|||
</pre> |
</pre> |
||