Ultra useful primes: Difference between revisions
m
→{{header|J}}
(→{{header|J}}: redo for j9.4 which fixes arbitrary precision performance problems) |
m (→{{header|J}}) |
||
Line 195:
<syntaxhighlight lang="j">uup=: {{
ref=. x:
k=. 1
while. -. 1 p: ref-k do. k=. k+2 end.
|