Strange plus numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add MAD) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 385: | Line 385: | ||
Strange plus numbers 100-500: 65 |
Strange plus numbers 100-500: 65 |
||
</pre> |
</pre> |
||
=={{header|BCPL}}== |
|||
<lang bcpl>get "libhdr" |
|||
let smallprime(n) = n=2 | n=3 | n=5 | n=7 | n=11 | n=13 | n=17 |
|||
let strangeplus(n) = |
|||
n<10 -> true, |
|||
~smallprime(n rem 10 + (n/10) rem 10) -> false, |
|||
strangeplus(n / 10) |
|||
let start() be |
|||
$( let col = 0 |
|||
for i = 100 to 500 if strangeplus(i) |
|||
$( writef("%I3 ",i) |
|||
col := col + 1 |
|||
if col rem 10 = 0 then wrch('*N') |
|||
$) |
|||
wrch('*N') |
|||
$) </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|C}}== |
=={{header|C}}== |
||
Line 424: | Line 452: | ||
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|C++}}== |
=={{header|C++}}== |
||
{{trans|Java}} |
{{trans|Java}} |