Retos de programación :: Reto 3(nuevo Array Sin Elementos Repetidos)

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Sabado, 20 Abril 2024, 11:10 • Todas las horas son UTC + 1 Hora

Reto 3(nuevo Array Sin Elementos Repetidos)

Página 1 de 1

Reto 3(nuevo Array Sin Elementos Repetidos)

Autor	Mensaje
v3ctor Analista Programador Registrado: May 2013 Mensajes: 1786 Edad: 44 Ubicación: Uruguay	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. =================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible Proyectos: VisorRV1960,Taller2015,Tanteador https://sourceforge.net/u/v3ctor-full/profile/ Blog: http://novatocodegambas.blogspot.com.uy/ última edición por v3ctor el Martes, 16 Diciembre 2014, 20:02; editado 2 veces
#1 Martes, 16 Diciembre 2014, 19:07

v3ctor Analista Programador Registrado: May 2013 Mensajes: 1786 Edad: 44 Ubicación: Uruguay	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. =================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible Proyectos: VisorRV1960,Taller2015,Tanteador https://sourceforge.net/u/v3ctor-full/profile/ Blog: http://novatocodegambas.blogspot.com.uy/
#2 Martes, 23 Diciembre 2014, 18:26

Shell Analista Programador Registrado: Marzo 2010 Mensajes: 5278 Edad: 53 Ubicación: Al otro lado de la pantalla	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 =================== Gambas Básico "No es un bug, es una característica no documentada"
#3 Martes, 23 Diciembre 2014, 20:24

Shell Analista Programador Registrado: Marzo 2010 Mensajes: 5278 Edad: 53 Ubicación: Al otro lado de la pantalla	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 =================== Gambas Básico "No es un bug, es una característica no documentada"
#4 Martes, 23 Diciembre 2014, 20:42

Shell Analista Programador Registrado: Marzo 2010 Mensajes: 5278 Edad: 53 Ubicación: Al otro lado de la pantalla	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 =================== Gambas Básico "No es un bug, es una característica no documentada" última edición por Shell el Martes, 23 Diciembre 2014, 20:58; editado 1 vez
#5 Martes, 23 Diciembre 2014, 20:56

Mostrar mensajes anteriores:

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Nota: Normas específicas para el nuevo foro Pro...	jguardon	Programación en otros lenguajes	0	Martes, 13 Agosto 2013, 21:25 jguardon
Mostrar Elementos Sin Repetición Y Mostra...	Shell	General	2	Sabado, 22 Noviembre 2014, 18:22 Shell
Como Declarar Array Limitando Elementos Po...	v3ctor	General	1	Viernes, 12 Diciembre 2014, 18:37 Shell
Filtrar Elementos Duplicados En Un Array T...	gambafeliz	General	9	Lunes, 09 Septiembre 2019, 20:33 tincho

Página 1 de 1

Fecha y hora actual: Sabado, 20 Abril 2024, 11:10 • Todas las horas son UTC + 1 Hora

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

Lista de permisos

No puede crear mensajes
No 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

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.3074s (PHP: -56% SQL: 156%)
Consultas SQL: 46 - Debug off - GZIP Activado

Design by Mighty Gorgon