Palindromic primes in base 16: Difference between revisions
Added Arturo implementation
(Added C++ solution) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 150:
2 3 5 7 B D 11 101 151 161 191 1B1 1C1
</pre>
=={{header|Arturo}}==
<lang rebol>palindrome?: function [a][
and? -> prime? a
-> equal? digits.base:16 a reverse digits.base:16 a
]
print map select 1..500 => palindrome? 'x -> upper as.hex x</lang>
{{out}}
<pre>2 3 5 7 B D 11 101 151 161 191 1B1 1C1</pre>
=={{header|AWK}}==
| |||