Determine if a string has all the same characters: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: whitespace regularize)
m (→‎{{header|REXX}}: added zkl header)
Line 309: Line 309:
not all the same character for string (length 6): tttTTT [character T ('54'x) at position 4].
not all the same character for string (length 6): tttTTT [character T ('54'x) at position 4].
not all the same character for string (length 9): 4444 444K [character ('20'x) at position 5].
not all the same character for string (length 9): 4444 444K [character ('20'x) at position 5].
</pre>

=={{header|zkl}}==
<lang zkl></lang>
<lang zkl></lang>
{{out}}
<pre>

</pre>
</pre>