Revision as of 22:50, 25 January 2019 (view source) Tikkanz (talk \| contribs) (→‎{{header\|J}}: Add J) ← Older edit		Revision as of 22:52, 25 January 2019 (view source) Tikkanz (talk \| contribs) m (→‎{{header\|J}}) Newer edit →
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:'''

Square-free integers (view source)