Square-free integers: Difference between revisions
Content added Content deleted
(→{{header|J}}: Add J) |
|||
Line 655: | Line 655: | ||
from 1 to 1000000: 607926 |
from 1 to 1000000: 607926 |
||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
'''Solution:''' |
|||
<lang j>isSqrFree=: (#@~. = #)@q: NB. are there no duplicates in the prime factors of a number? |
|||
filter=: 1 :' #~ u' NB. filter right arg using verb to left |
|||
countSqrFree=: +/@:isSqrFree |
|||
thru=: <. + i.@(+ *)@-~ NB. helper verb</lang> |
|||
'''Required Examples:''' |
|||
<lang j> isSqrFree filter 1 thru 145 |
|||
1 2 3 5 6 7 10 11 13 14 15 17 19 21 22 23 26 29 30 31 33 34 35 37 38 39 41 42 43 46 47 51 53 55 57 58 59 61 62 65 66 67 69 70 71 73 74 77 78 79 82 83 85 86 87 89 91 93 94 95 97 101 102 103 105 106 107 109 110 111 113 114 115 118 119 122 123 127 129 130 131... |
|||
isSqrFree filter 1000000000000 thru 1000000000145 |
|||
1000000000001 1000000000002 1000000000003 1000000000005 1000000000006 1000000000007 1000000000009 1000000000011 1000000000013 1000000000014 1000000000015 1000000000018 1000000000019 1000000000021 1000000000022 1000000000023 1000000000027 1000000000029 1000... |
|||
countSqrFree 1 thru 100 |
|||
61 |
|||
countSqrFree 1 thru 1000 |
|||
608 |
|||
countSqrFree 1 thru 10000 |
|||
6083 |
|||
countSqrFree 1 thru 100000 |
|||
60794 |
|||
countSqrFree 1 thru 1000000 |
|||
607926</lang> |
|||
=={{header|Java}}== |
=={{header|Java}}== |
||
Line 765: | Line 788: | ||
from 1 to 1000000 = 607926 |
from 1 to 1000000 = 607926 |
||
</pre> |
</pre> |
||
=={{header|jq}}== |
=={{header|jq}}== |
||
Requires jq 1.5 or higher |
Requires jq 1.5 or higher |