Square-free integers: Difference between revisions
→{{header|J}}: Add J
(→{{header|J}}: Add J) |
|||
Line 655:
from 1 to 1000000: 607926
</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}}==
Line 765 ⟶ 788:
from 1 to 1000000 = 607926
</pre>
=={{header|jq}}==
Requires jq 1.5 or higher
| |||