Determine if a string has all unique characters: Difference between revisions
Content added Content deleted
m (added related tasks.) |
(Determine if a string has all unique characters en Yabasic) |
||
Line 3,171: | Line 3,171: | ||
^ ^ Duplicate character: u, hex 75 |
^ ^ Duplicate character: u, hex 75 |
||
</pre> |
</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}}== |
=={{header|zkl}}== |