Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Viernes, 10 May 2024, 17:41 • Todas las horas son UTC + 1 Hora

Reto 3(nuevo Array Sin Elementos Repetidos)

Artículo
Reto 3(nuevo Array Sin Elementos Repetidos)
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. última edición por v3ctor el Martes, 16 Diciembre 2014, 20:02; editado 2 veces
v3ctor [ Martes, 16 Diciembre 2014, 19:07 ]

Reto 3(nuevo Array Sin Elementos Repetidos)

Comentarios
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.
v3ctor [ Martes, 23 Diciembre 2014, 18:26 ]

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 Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] ' 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 Saludos
Shell [ Martes, 23 Diciembre 2014, 20:24 ]

Re: Reto 3(nuevo Array Sin Elementos Repetidos)
Otra forma, esta vez usando Continue dentro del bucle: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] 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 Saludos
Shell [ Martes, 23 Diciembre 2014, 20:42 ]

Re: Reto 3(nuevo Array Sin Elementos Repetidos)
En este ejemplo, he usado colecciones. No nos interesa los valores, solo sus claves. Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] ' 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 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
Shell [ Martes, 23 Diciembre 2014, 20:56 ]

Mostrar mensajes anteriores:

Página 1 de 1

Fecha y hora actual: Viernes, 10 May 2024, 17:41 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.0834s (PHP: 21% SQL: 79%)
Consultas SQL: 31 - Debug off - GZIP Activado

Design by Mighty Gorgon