Sum of the digits of n is substring of n: Difference between revisions

Content added Content deleted
(Add COBOL)
Line 603: Line 603:
end loop;
end loop;
print_nl();</lang>
print_nl();</lang>
{{out}}
<pre>0 1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80 90 100 109 119 129 139 149 159 169 179 189 199 200 300 400 500 600 700 800 900 910 911 912 913 914 915 916 917 918 919</pre>

=={{header|D}}==
{{trans|C++}}
<lang d>import std.algorithm;
import std.conv;
import std.stdio;

int digitSum(int n) {
int s = 0;
do {
s += n % 10;
} while (n /= 10);
return s;
}

void main() {
foreach (i; 0 .. 1000) {
if (i.to!string.canFind(digitSum(i).to!string)) {
write(i, ' ');
}
}
writeln;
}</lang>
{{out}}
{{out}}
<pre>0 1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80 90 100 109 119 129 139 149 159 169 179 189 199 200 300 400 500 600 700 800 900 910 911 912 913 914 915 916 917 918 919</pre>
<pre>0 1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80 90 100 109 119 129 139 149 159 169 179 189 199 200 300 400 500 600 700 800 900 910 911 912 913 914 915 916 917 918 919</pre>
Line 618: Line 643:
Real: 00:00:00.003
Real: 00:00:00.003
</pre>
</pre>

=={{header|Factor}}==
=={{header|Factor}}==
{{works with|Factor|0.99 2021-02-05}}
{{works with|Factor|0.99 2021-02-05}}