Sum of the digits of n is substring of n: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add PL/I |
|||
Line 1,088: | Line 1,088: | ||
918 |
918 |
||
919</pre> |
919</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[SumAsSubString] |
|||
SumAsSubString[n_Integer] := Module[{id, s}, |
|||
id = IntegerDigits[n]; |
|||
s = Total[id]; |
|||
SequenceCount[id, IntegerDigits[s]] > 0 |
|||
] |
|||
Select[Range[999], SumAsSubString]</lang> |
|||
{{out}} |
|||
<pre>{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|Nim}}== |
=={{header|Nim}}== |