Determine if a string has all unique characters: Difference between revisions
Determine if a string has all unique characters (view source)
Revision as of 21:46, 11 November 2020
, 3 years agoDetermine if a string has all unique characters en Yabasic
m (added related tasks.) |
(Determine if a string has all unique characters en Yabasic) |
||
Line 3,171:
^ ^ Duplicate character: u, hex 75
</pre>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang Yabasic>sub caracteresunicos (cad$)
local lngt
lngt = len(cad$)
print "cadena = \"", cad$, "\", longitud = ", lngt
for i = 1 to lngt
for j = i + 1 to lngt
if mid$(cad$,i,1) = mid$(cad$,j,1) then
print " Primer duplicado en las posiciones ", i, " y ", j, ", caracter = \'", mid$(cad$,i,1), "\', valor hex = ", hex$(asc(mid$(cad$,i,1)))
print
return
end if
next j
next i
print " Todos los caracteres son unicos.\n"
end sub
caracteresunicos ("")
caracteresunicos (".")
caracteresunicos ("abcABC")
caracteresunicos ("XYZ ZYX")
caracteresunicos ("1234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ")</lang>
{{out}}
<pre>
cadena = "", longitud = 0
Todos los caracteres son unicos.
cadena = ".", longitud = 1
Todos los caracteres son unicos.
cadena = "abcABC", longitud = 6
Todos los caracteres son unicos.
cadena = "XYZ ZYX", longitud = 7
Primer duplicado en las posiciones 1 y 7, caracter = 'X', valor hex = 58
cadena = "1234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ", longitud = 36
Primer duplicado en las posiciones 10 y 25, caracter = '0', valor hex = 30
</pre>
=={{header|zkl}}==
| |||