Deceptive numbers: Difference between revisions
Content added Content deleted
m (Correcting a typing error.) |
(→OCaml: move the primality test to the end, ~12% faster) |
||
Line 67: | Line 67: | ||
=={{header|Arturo}}== |
=={{header|Arturo}}== |
||
<syntaxhighlight lang="rebol">deceptive?: function [n][ |
<syntaxhighlight lang="rebol">deceptive?: function [n][ |
||
and? -> not? prime? n |
and? -> not? prime? n |
||
Line 265: | Line 264: | ||
97273 97681 100001 101101 101491 102173 108691 113201 115627 115921 |
97273 97681 100001 101101 101491 102173 108691 113201 115627 115921 |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
{{works with|Factor|0.99 2021-06-02}} |
{{works with|Factor|0.99 2021-06-02}} |
||
Line 291: | Line 291: | ||
if Isprime(n)>1 and Divides(n,Rep(n-1)) then !!n; c:+; fi |
if Isprime(n)>1 and Divides(n,Rep(n-1)) then !!n; c:+; fi |
||
od;</syntaxhighlight> |
od;</syntaxhighlight> |
||
=={{header|Go}}== |
=={{header|Go}}== |
||
Line 337: | Line 336: | ||
=={{header|J}}== |
=={{header|J}}== |
||
<syntaxhighlight lang="j">R=: (10x #. #&1)"0 |
<syntaxhighlight lang="j">R=: (10x #. #&1)"0 |
||
deceptive=: 1&p: < 0 = ] | R@<: |
deceptive=: 1&p: < 0 = ] | R@<: |
||
Line 669: | Line 667: | ||
x * x <= n && (n mod x = 0 || n mod (x + 4) = 0 || loop (x + 6)) |
x * x <= n && (n mod x = 0 || n mod (x + 4) = 0 || loop (x + 6)) |
||
in |
in |
||
n land 1 <> 0 && n mod 3 <> 0 && n mod 5 <> 0 |
n land 1 <> 0 && n mod 3 <> 0 && n mod 5 <> 0 && |
||
modpow n 10 (pred n) = 1 |
modpow n 10 (pred n) = 1 && loop 7 |
||
let () = |
let () = |
||
Line 947: | Line 945: | ||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||
<code>isprime</code> is defined at [[Primality by trial division#Quackery]]. |
<code>isprime</code> is defined at [[Primality by trial division#Quackery]]. |
||
Line 988: | Line 985: | ||
<pre>[91, 259, 451, 481, 703, 1729, 2821, 2981, 3367, 4141, 4187, 5461, 6533, 6541, 6601, 7471, 7777, 8149, 8401, 8911, 10001, 11111, 12403, 13981, 14701] |
<pre>[91, 259, 451, 481, 703, 1729, 2821, 2981, 3367, 4141, 4187, 5461, 6533, 6541, 6601, 7471, 7777, 8149, 8401, 8911, 10001, 11111, 12403, 13981, 14701] |
||
</pre> |
</pre> |
||
=={{header|Rust}}== |
=={{header|Rust}}== |
||
<syntaxhighlight lang="rust">// [dependencies] |
<syntaxhighlight lang="rust">// [dependencies] |
||
Line 1,060: | Line 1,058: | ||
(91 259 451 481 703 1729 2821 2981 3367 4141) |
(91 259 451 481 703 1729 2821 2981 3367 4141) |
||
</pre> |
</pre> |
||
=={{header|Sidef}}== |
=={{header|Sidef}}== |
||
<syntaxhighlight lang="ruby">say 100.by {|n| |
<syntaxhighlight lang="ruby">say 100.by {|n| |