Sum of the digits of n is substring of n: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add FOCAL) |
Not a robot (talk | contribs) (Add Snobol) |
||
Line 815: | Line 815: | ||
done... |
done... |
||
</pre> |
</pre> |
||
=={{header|SNOBOL4}}== |
|||
<lang snobol4> define('digsum(n)') :(digsum_end) |
|||
digsum digsum = 0 |
|||
dsloop digsum = digsum + remdr(n,10) |
|||
n = ne(n,0) n / 10 :s(dsloop)f(return) |
|||
digsum_end |
|||
define('sumsub(n)') :(sumsub_end) |
|||
sumsub n digsum(n) :s(return)f(freturn) |
|||
sumsub_end |
|||
i = 0 |
|||
loop output = sumsub(i) i |
|||
i = lt(i,999) i + 1 :s(loop) |
|||
end</lang> |
|||
{{out}} |
|||
<pre style='height:50ex'>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|Wren}}== |
=={{header|Wren}}== |