Square-free integers: Difference between revisions

Content added Content deleted
Line 658:
=={{header|J}}==
'''Solution:'''
<lang j>isSqrFree=: (#@~. = #)@q: NB. are there no duplicates in the prime factors of a number?
filter=: 1adverb def :' #~ u' NB. filter right arg using verb to left
countSqrFree=: +/@:isSqrFree
thru=: <. + i.@(+ *)@-~ NB. helper verb</lang>
 
'''Required Examples:'''
Retrieved from "https://rosettacode.org/wiki/Square-free_integers"