Buenas les traigo un reto fácil, que me dio dolores de cabeza.
es un reto para novatos y gente que se inicia en gambas.
el reto consiste en que tenemos un array de siglas:
Public ColeccionSiglas As String[] = ["FD", "MTM", "MTM", "ASM", "FD", "CTM", "MTM", "CTM", "FD", "CCR"]
como vereis hay siglas repetidas, pues bien de eso se trata el reto crear un nuevo array que no contenga siglas repetidas.
el reto resuelto seria un nuevo array que recorrido con for each nos dejaria la pantalla así:
FD
MTM
ASM
CTM
CCR
MANDAR EL RETO A MI CORREO
PLAZO UNA SEMANA
NO PUBLIQUEN RETOS RESUELTOS, YO LO HARÉ CUANDO TERMINE EL PLAZO.
Reto 3(nuevo Array Sin Elementos Repetidos)
Objetivo: Reto 3(nuevo Array Sin Elementos Repetidos)
última edición por v3ctor el Martes, 16 Diciembre 2014, 20:02; editado 2 veces
última edición por v3ctor el Martes, 16 Diciembre 2014, 20:02; editado 2 veces
Objetivo: Re: Reto 3(nuevo Array Sin Elementos Repetidos)
bueno en vista que no hubo propuestas, el reto esta abierto y cualquiera puede publicar soluciones.
a ver quien da la solución mas elegante.
a ver quien da la solución mas elegante.
Objetivo: Re: Reto 3(nuevo Array Sin Elementos Repetidos)
Es interesante para los más novatos que realicen el ejemplo propuesto.
Esta es una posible solución
Saludos
Esta es una posible solución
' gambas module file
Private ColeccionSiglas As String[] = ["FD", "MTM", "MTM", "ASM", "FD", "CTM", "MTM", "CTM", "FD", "CCR"]
Public Sub Main()
Dim ColeccionSiglasNoRepetidas As String[]
ColeccionSiglasNoRepetidas = EliminarRepetidos(ColeccionSiglas)
MostrarSiglas(ColeccionSiglasNoRepetidas)
End
Public Function EliminarRepetidos(siglas As String[]) As String[]
Dim elemento As String
Dim sinrepes As New String[]
For Each elemento In siglas
If Not sinrepes.Exist(elemento) Then sinrepes.Add(elemento)
Next
sinrepes.Sort()
Return sinrepes
End
Public Sub MostrarSiglas(siglas As String[])
Dim elemento As String
For Each elemento In siglas
Print elemento
Next
End
Private ColeccionSiglas As String[] = ["FD", "MTM", "MTM", "ASM", "FD", "CTM", "MTM", "CTM", "FD", "CCR"]
Public Sub Main()
Dim ColeccionSiglasNoRepetidas As String[]
ColeccionSiglasNoRepetidas = EliminarRepetidos(ColeccionSiglas)
MostrarSiglas(ColeccionSiglasNoRepetidas)
End
Public Function EliminarRepetidos(siglas As String[]) As String[]
Dim elemento As String
Dim sinrepes As New String[]
For Each elemento In siglas
If Not sinrepes.Exist(elemento) Then sinrepes.Add(elemento)
Next
sinrepes.Sort()
Return sinrepes
End
Public Sub MostrarSiglas(siglas As String[])
Dim elemento As String
For Each elemento In siglas
Print elemento
Next
End
Saludos
Objetivo: Re: Reto 3(nuevo Array Sin Elementos Repetidos)
Otra forma, esta vez usando Continue dentro del bucle:
Saludos
Private ColeccionSiglas As String[] = ["FD", "MTM", "MTM", "ASM", "FD", "CTM", "MTM", "CTM", "FD", "CCR"]
Public Sub Main()
Dim siglassinrepeticion As New String[]
siglassinrepeticion = Eliminar_Repetidos(ColeccionSiglas)
siglassinrepeticion.Sort()
MostrarSiglas(siglassinrepeticion)
End
Public Sub Eliminar_Repetidos(siglas As String[]) As String[]
Dim norepetidos As New String[]
Dim elemento As String
For Each elemento In siglas
If norepetidos.Find(elemento) <> -1 Then
Continue
Else
norepetidos.Add(elemento)
Endif
Next
Return norepetidos
End
Public Sub MostrarSiglas(siglas As String[])
Dim elemento As String
For Each elemento In siglas
Print elemento
Next
End
Public Sub Main()
Dim siglassinrepeticion As New String[]
siglassinrepeticion = Eliminar_Repetidos(ColeccionSiglas)
siglassinrepeticion.Sort()
MostrarSiglas(siglassinrepeticion)
End
Public Sub Eliminar_Repetidos(siglas As String[]) As String[]
Dim norepetidos As New String[]
Dim elemento As String
For Each elemento In siglas
If norepetidos.Find(elemento) <> -1 Then
Continue
Else
norepetidos.Add(elemento)
Endif
Next
Return norepetidos
End
Public Sub MostrarSiglas(siglas As String[])
Dim elemento As String
For Each elemento In siglas
Print elemento
Next
End
Saludos
Objetivo: Re: Reto 3(nuevo Array Sin Elementos Repetidos)
última edición por Shell el Martes, 23 Diciembre 2014, 20:58; editado 1 vez
En este ejemplo, he usado colecciones. No nos interesa los valores, solo sus claves.
Lastima no tener Sets en gambas. Pero, se pueden imitar.
Saludos
' gambas module file
Private ColeccionSiglas As String[] = ["FD", "MTM", "MTM", "ASM", "FD", "CTM", "MTM", "CTM", "FD", "CCR"]
Public Sub Main()
Dim siglassinrepeticion As New Collection
siglassinrepeticion = Eliminar_Repetidos(ColeccionSiglas)
MostrarSiglas(siglassinrepeticion)
End
'Más bien cuenta las veces que se repite cada sigla
Public Sub Eliminar_Repetidos(siglas As String[]) As Collection
Dim sigla As String
Dim csiglas As New Collection
For Each sigla In siglas
If Not csiglas.Exist(sigla) Then
csiglas[sigla] = 1
Else
csiglas[sigla] += 1
Endif
Next
Return csiglas
End
Public Sub MostrarSiglas(siglas As Collection)
Dim elemento As String
For Each elemento In siglas
Print siglas.Key
Next
End
Private ColeccionSiglas As String[] = ["FD", "MTM", "MTM", "ASM", "FD", "CTM", "MTM", "CTM", "FD", "CCR"]
Public Sub Main()
Dim siglassinrepeticion As New Collection
siglassinrepeticion = Eliminar_Repetidos(ColeccionSiglas)
MostrarSiglas(siglassinrepeticion)
End
'Más bien cuenta las veces que se repite cada sigla
Public Sub Eliminar_Repetidos(siglas As String[]) As Collection
Dim sigla As String
Dim csiglas As New Collection
For Each sigla In siglas
If Not csiglas.Exist(sigla) Then
csiglas[sigla] = 1
Else
csiglas[sigla] += 1
Endif
Next
Return csiglas
End
Public Sub MostrarSiglas(siglas As Collection)
Dim elemento As String
For Each elemento In siglas
Print siglas.Key
Next
End
Lastima no tener Sets en gambas. Pero, se pueden imitar.
Saludos
última edición por Shell el Martes, 23 Diciembre 2014, 20:58; editado 1 vez
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4917s (PHP: -74% SQL: 174%)
Consultas SQL: 47 - Debug off - GZIP Activado