Pernicious numbers: Difference between revisions
m
Added Easylang
Alextretyak (talk | contribs) m (→{{header|11l}}: bits:popcount()) |
m (Added Easylang) |
||
| (4 intermediate revisions by 3 users not shown) | |||
Line 1,285:
1_421_120_880 Pernicious numbers in the unsigned 32 bit range in less than 48 seconds with this line:
<syntaxhighlight lang="d">uint.max.iota.filter!pernicious.walkLength.writeln;</syntaxhighlight>
=={{header|EasyLang}}==
<syntaxhighlight>
fastfunc isprim num .
if num < 2
return 0
.
i = 2
while i <= sqrt num
if num mod i = 0
return 0
.
i += 1
.
return 1
.
func popc n .
while n > 0
r += n mod 2
n = n div 2
.
return r
.
n = 1
while cnt < 25
if isprim popc n = 1
write n & " "
cnt += 1
.
n += 1
.
print ""
n = 1
for n = 888888877 to 888888888
if isprim popc n = 1
write n & " "
.
.
</syntaxhighlight>
{{out}}
<pre>
3 5 6 7 9 10 11 12 13 14 17 18 19 20 21 22 24 25 26 28 31 33 34 35 36
888888877 888888878 888888880 888888883 888888885 888888886
</pre>
=={{header|EchoLisp}}==
Line 1,707 ⟶ 1,753:
{{FormulaeEntry|page=https://formulae.org/?script=examples/Pernicious_numbers}}
'''Solution'''
[[File:Fōrmulæ - Pernicious numbers 01.png]]
'''Case 1. Display the first 25 pernicious numbers (in decimal)'''
[[File:Fōrmulæ - Pernicious numbers 02.png]]
[[File:Fōrmulæ - Pernicious numbers 03.png]]
'''Case 2. display all pernicious numbers between 888,888,877 and 888,888,888 (inclusive).'''
[[File:Fōrmulæ - Pernicious numbers 04.png]]
[[File:Fōrmulæ - Pernicious numbers 05.png]]
=={{header|Go}}==
Line 3,754 ⟶ 3,816:
=={{header|Wren}}==
{{trans|Go}}
<syntaxhighlight lang="
var ff = 2.pow(32) - 1
var mask1 = (ff / 3).floor
| |||