Forbidden numbers: Difference between revisions
added Arturo
(Added FreeBasic) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 86:
There are 8333330 Forbidden numbers up to 50000000
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">forbidden?: function [n][
m: new n
v: 0
while -> and? m > 1 0 = m % 4 [
'm / 4
inc 'v
]
7 = mod n / 4 ^ v 8
]
print "First 50 forbidden numbers:"
forbidden: split.every:10 select.first:50 0..∞ => forbidden?
loop forbidden 'row [
loop row 'n -> prints pad ~"|n|" 4
print ""
]
print ""
[target n count]: [500 0 0]
while -> target =< 5e6 [
if forbidden? n -> inc 'count
if n = target [
print [count "forbidden numbers up to" target]
'target * 10
]
inc 'n
]</syntaxhighlight>
{{out}}
<pre>First 50 forbidden numbers:
7 15 23 28 31 39 47 55 60 63
71 79 87 92 95 103 111 112 119 124
127 135 143 151 156 159 167 175 183 188
191 199 207 215 220 223 231 239 240 247
252 255 263 271 279 284 287 295 303 311
82 forbidden numbers up to 500
831 forbidden numbers up to 5000
8330 forbidden numbers up to 50000
83331 forbidden numbers up to 500000
833329 forbidden numbers up to 5000000</pre>
=={{header|C}}==
| |||