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

added Perl programming solution
(→‎{{header|BASIC}}: marked incorrect)
(added Perl programming solution)
Line 523:
918
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}}==
350

edits