Sum of the digits of n is substring of n: Difference between revisions
Sum of the digits of n is substring of n (view source)
Revision as of 14:10, 15 April 2021
, 3 years agoAdd Snobol
Not a robot (talk | contribs) (Add FOCAL) |
Not a robot (talk | contribs) (Add Snobol) |
||
Line 815:
done...
</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}}==
| |||