Sexy primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 966: / Line 966: @@
 sp =: dyad define
-  's os' =. x  NB. prime distance, orgy size
+  'pd os' =. x  NB. prime distance, orgy size
   p =.  pngt y
   o =.  orgy p
-  g =.  o +/&.> <\ +/\ _1 |.!.0 os # s NB. Groups
+  g =.  o +/&.> <\ +/\ _1 |.!.0 os # pd NB. Groups
   's g' =.  split g  NB. Split singles from groups
@@ Line 978: / Line 978: @@
   NB. it causes the kind of edge-case issues the spec warns
   NB. about with 1000033
-  us =. _6 6 (] #~ [: +:/ 1 p: +/) p  NB. Unsexy numbers
+  us =. p (] #~ [: +:/ 1 p: +/)~ (+,-) pd NB. Unsexy numbers
   ( (#&.> g) ,. l ) ,~ (# ; _10&{.) us
 )