Strange plus numbers: Difference between revisions
Content added Content deleted
(Added Sidef) |
(Add Seed7) |
||
Line 1,079: | Line 1,079: | ||
389 411 412 414 416 430 432 434 438 470 |
389 411 412 414 416 430 432 434 438 470 |
||
474 476 492 494 498</pre> |
474 476 492 494 498</pre> |
||
=={{header|Seed7}}== |
|||
<lang seed7>$ include "seed7_05.s7i"; |
|||
const func boolean: prime (in integer: number) is |
|||
return number in {2, 3, 5, 7, 11, 13, 17}; |
|||
const func boolean: strange (in var integer: number) is func |
|||
result |
|||
var boolean: strange is TRUE; |
|||
begin |
|||
while number > 9 and strange do |
|||
if not prime(number rem 10 + number div 10 rem 10) then |
|||
strange := FALSE; |
|||
end if; |
|||
number := number div 10; |
|||
end while; |
|||
end func; |
|||
const proc: main is func |
|||
local |
|||
var integer: n is 0; |
|||
var integer: count is 0; |
|||
begin |
|||
for n range 101 to 499 do |
|||
if strange(n) then |
|||
write(n <& " "); |
|||
incr(count); |
|||
if count rem 13 = 0 then |
|||
writeln; |
|||
end if; |
|||
end if; |
|||
end for; |
|||
end func;</lang> |
|||
{{out}} |
|||
<pre> |
|||
111 112 114 116 120 121 123 125 129 141 143 147 149 |
|||
161 165 167 202 203 205 207 211 212 214 216 230 232 |
|||
234 238 250 252 256 258 292 294 298 302 303 305 307 |
|||
320 321 323 325 329 341 343 347 349 383 385 389 411 |
|||
412 414 416 430 432 434 438 470 474 476 492 494 498 |
|||
</pre> |
|||
=={{header|Sidef}}== |
=={{header|Sidef}}== |