Sequence of non-squares: Difference between revisions
m
Made the APL code a bit less verbose
(Added APL) |
m (Made the APL code a bit less verbose) |
||
Line 70:
2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27</lang>
Show there are no squares in the first million:
<lang apl> HOWMANYSQUARES←{+⌿⍵=(⌊⍵*0.5)
HOWMANYSQUARES NONSQUARE 1000000
0</lang>
| |||