Sexy primes: Difference between revisions

m
→‎{{header|J}}: remove superfluous twiddles
m (→‎{{header|J}}: pluralization)
m (→‎{{header|J}}: remove superfluous twiddles)
Line 957:
 
NB. Add 6 and see which sums appear in input list
sexy =: ] #~ ]+ e.~ +]
 
NB. Iterate "sexy" logic up to orgy size
Line 976:
NB. about with 1000033
us =. p (] #~ 1 +:/@:p: +/)~ (+,-) pd NB. Unsexy numbers
( (# ; _10&{.> g) ,. lus ) ,~ (# ; _10&{.> g) us,. l
)</lang>
 
Anonymous user