Harshad or Niven series: Difference between revisions
Add BCPL
Not a robot (talk | contribs) (Add ALGOL-M) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 814:
{{out}}
<pre>1 2 3 4 5 6 7 8 9 10 12 18 20 21 24 27 30 36 40 42 1002</pre>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let dsum(n) = n=0 -> 0, n rem 10 + dsum(n/10)
let next(n) = harshad(n+1) and harshad(n) = n rem dsum(n)=0 -> n, next(n)
let start() be
$( let n = 0
writes("First 20:")
for i = 1 to 20 do
$( n := next(n)
writef(" %N", n)
$)
writef("*NFirst above 1000: %N*N", next(1000))
$)</lang>
{{out}}
<pre>First 20: 1 2 3 4 5 6 7 8 9 10 12 18 20 21 24 27 30 36 40 42
First above 1000: 1002</pre>
=={{header|Befunge}}==
| |||