Sequence of non-squares: Difference between revisions
Add min
(→{{header|Python}}: Python 2 -> Python 3) |
(Add min) |
||
Line 1,303:
is(sublist(u, not_square) = sublist(map(nonsquare, u), lambda([x], x <= m)));
true</lang>
=={{header|min}}==
{{works with|min|0.19.3}}
<lang min>(dup sqrt 0.5 + int +) :non-sq
(sqrt dup floor - 0 ==) :sq?
(:n =q 1 'dup q concat 'succ concat n times pop) :upto
(non-sq print! " " print!) 22 upto newline
"Squares for n below one million:" puts!
(non-sq 'sq? 'puts when pop) 999999 upto</lang>
{{out}}
<pre>
2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27
Squares for n below one million:
</pre>
=={{header|МК-61/52}}==
| |||