Distinct palindromes within decimal numbers: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added the computer programming language REXX.) |
m (→{{header|REXX}}: allowed the use of numbers/words of any length, not just the width of last entry.) |
||
Line 353: | Line 353: | ||
say |
say |
||
do j=1 for words($$); z= word($$, j) |
do j=1 for words($$); z= word($$, j) |
||
#= Dpal(z, mL) |
#= Dpal(z, mL); w= max(w, length(z) ) /*get # distinct palindromes, minLen=mL*/ |
||
_= left(':', #>0); @has= ' has '; @of='of length' |
_= left(':', #>0); @has= ' has '; @of='of length' |
||
say right(z, w) @has # " palindrome"s(#,,' ') @of mL "or more"_ space($) |
say right(z, w) @has # " palindrome"s(#,,' ') @of mL "or more"_ space($) |