Jump to content

Distinct palindromes within decimal numbers: Difference between revisions

m
→‎{{header|REXX}}: allowed the use of numbers/words of any length, not just the width of last entry.
(→‎{{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:
say
do j=1 for words($$); z= word($$, j)
#= Dpal(z, mL); w= max(w, length(z) ) /*get # distinct palindromes, minLen=mL*/
_= left(':', #>0); @has= ' has '; @of='of length'
say right(z, w) @has # " palindrome"s(#,,' ') @of mL "or more"_ space($)
Cookies help us deliver our services. By using our services, you agree to our use of cookies.