Determine if a string has all unique characters: Difference between revisions

Content added Content deleted
(Added various BASIC dialects (BASIC256, Chipmunk Basi and PureBasic))
Line 1,462: Line 1,462:


=={{header|EasyLang}}==
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
<syntaxhighlight>
func$ hex h .
func$ hex h .
for d in [ h div 16 h mod 16 ]
for d in [ h div 16 h mod 16 ]
Line 1,490: Line 1,490:
until s$ = "EOF"
until s$ = "EOF"
print "'" & s$ & "'" & " length " & len s$
print "'" & s$ & "'" & " length " & len s$
call unichar s$
unichar s$
print ""
print ""
.
.
Retrieved from "https://rosettacode.org/wiki/Determine_if_a_string_has_all_unique_characters"