Super-Poulet numbers: Difference between revisions
Content added Content deleted
(Add Factor) |
(J draft) |
||
| Line 39: | Line 39: | ||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
Implementation:<lang J>spou1=: {{ 2 = 2x(y&|)@^ y }} |
|||
is_super_poulet=: {{ |
|||
if. 2~:#q=. q: y do. 0 return. end. |
|||
if. spou1 {. q do. |
|||
if. spou1 {: q do. |
|||
if. spou1 y do. 1 return. end. |
|||
end. |
|||
end. |
|||
0 |
|||
}}"0</lang> |
|||
Task example:<lang J> 20{. (#~ is_super_poulet) 1+i.1e5 |
|||
341 1387 2047 2701 3277 4033 4369 4681 5461 7957 8321 10261 13747 14491 15709 18721 19951 23377 31417 31609</lang> |
|||
=={{header|Julia}}== |
=={{header|Julia}}== |
||
<lang ruby>using Primes |
<lang ruby>using Primes |
||