Anonymous user
Sequence of non-squares: Difference between revisions
add lambdatalk code
Not a robot (talk | contribs) (Add COBOL) |
(add lambdatalk code) |
||
Line 1,451:
There are no squares for n less than one million
</pre>
=={{header|Lambdatalk}}==
<lang Scheme>
{def nosquare {lambda {:n} {+ :n {floor {+ 0.5 {sqrt :n}}}}}}
-> nosquare
{def issquare {lambda {:n} {= {sqrt :n} {round {sqrt :n}}}}}
-> issquare
{S.map nosquare {S.serie 1 22}}
-> 2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27
{S.replace false by in
{S.map issquare _
{S.map nosquare
{S.serie 1 1000000}}}}
-> true
</lang>
=={{header|Liberty BASIC}}==
| |||