Rosetta Code

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

← Older editNewer edit →
Content deleted Content added
Chkas (talk | contribs)
2,822 edits
Easylang
Chkas (talk | contribs)
2,822 edits
Line 1,265:
h = strcode s$[i]
if d[h] <> 0
write "length --> duplicates: '" & len s$[i] & "' (" duplicates:& '"hex h & s$[i]"h)"
print "' positions: " & d[h] & ", " & i & " hex: " & hex h
return
.
Line 1,276:
s$ = input
until s$ = "EOF"
print "'" & s$ & "'" & " length " & len s$
call unichar s$
print ""
Retrieved from "https://rosettacode.org/wiki/Determine_if_a_string_has_all_unique_characters"