Sum of the digits of n is substring of n: Difference between revisions
Content added Content deleted
(→{{header|BASIC}}: marked incorrect) |
(added Perl programming solution) |
||
Line 523: | Line 523: | ||
918 |
918 |
||
919</pre> |
919</pre> |
||
=={{header|Perl}}== |
|||
as one-liner .. |
|||
<lang perl>// 20210415 Perl programming solution |
|||
perl -e 'for(0..999){my$n;s/(\d)/$n+=$1/egr;print"$_ "if/$n/}'</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|Phix}}== |
=={{header|Phix}}== |