Palindromic primes: Difference between revisions
Content added Content deleted
m (→{{header|ALGOL 68}}: tweak) |
m (→{{header|S-BASIC}}: minor tweak) |
||
Line 1,217: | Line 1,217: | ||
rem - return true if n is palindromic, otherwise false |
rem - return true if n is palindromic, otherwise false |
||
function |
function ispalindromic(n = integer) = integer |
||
var i, j |
var i, j = integer |
||
var s = string |
var s = string |
||
s = str$(n) |
s = str$(n) |
||
Line 1,228: | Line 1,228: | ||
j = j - 1 |
j = j - 1 |
||
end |
end |
||
end = (mid(s,i,1)) = (mid(s,j,1)) |
|||
result = TRUE |
|||
else |
|||
result = FALSE |
|||
end = result |
|||
rem - return n mod m |
rem - return n mod m |
||
Line 1,262: | Line 1,258: | ||
for i = 2 to 1000 |
for i = 2 to 1000 |
||
if isprime(i) then |
if isprime(i) then |
||
if |
if ispalindromic(i) then |
||
begin |
begin |
||
print using "##### ";i; |
print using "##### ";i; |