Home    Forum    Search    FAQ    Register    Log in

Home » Forum » Gambas » Aplicaciones/Fragmentos de Código » Retos de programación

The time now is Saturday, 18 May 2024, 15:20 • All times are UTC + 1 Hour
View previous topic Recent Topics Enable KB mode Download Topic Printable Version Email to a Friend View next topic

Reto 3(nuevo Array Sin Elementos Repetidos)


Post new topic  Reply to topic  		Page 1 of 1
 
 
Reto 3(nuevo Array Sin Elementos Repetidos)
Author Message
Offline v3ctor Gender: Male
Analista Programador
Analista Programador
avatar
Joined: May 2013
Posts: 1786
Age: 44
Location: uruguay.png Uruguay
 
 
Reply with quote   Download Post  
Post 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/
 
Last edited by v3ctor on Tuesday, 16 December 2014, 20:02; edited 2 times in total 
#1  Tuesday, 16 December 2014, 19:07
v3ctor - View user's profileSend private messageVisit poster's website 
Back to topPage bottom
Offline v3ctor Gender: Male
Analista Programador
Analista Programador
avatar
Joined: May 2013
Posts: 1786
Age: 44
Location: uruguay.png Uruguay
 
 
Reply with quote   Download Post  
Post 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  Tuesday, 23 December 2014, 18:26
v3ctor - View user's profileSend private messageVisit poster's website 
Back to topPage bottom
Offline Shell Gender: Male
Analista Programador
Analista Programador
avatar
Joined: March 2010
Posts: 5278
Age: 53
Location: spain.png Al otro lado de la pantalla
 
 
Reply with quote   Download Post  
Post 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

' 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  Tuesday, 23 December 2014, 20:24
Shell - View user's profileSend private messageVisit poster's website 
Back to topPage bottom
Offline Shell Gender: Male
Analista Programador
Analista Programador
avatar
Joined: March 2010
Posts: 5278
Age: 53
Location: spain.png Al otro lado de la pantalla
 
 
Reply with quote   Download Post  
Post Re: Reto 3(nuevo Array Sin Elementos Repetidos) 
 
Otra forma, esta vez usando Continue dentro del bucle:

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  Tuesday, 23 December 2014, 20:42
Shell - View user's profileSend private messageVisit poster's website 
Back to topPage bottom
Offline Shell Gender: Male
Analista Programador
Analista Programador
avatar
Joined: March 2010
Posts: 5278
Age: 53
Location: spain.png Al otro lado de la pantalla
 
 
Reply with quote   Download Post  
Post Re: Reto 3(nuevo Array Sin Elementos Repetidos) 
 
En este ejemplo, he usado colecciones. No nos interesa los valores, solo sus claves.

' 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"
 
Last edited by Shell on Tuesday, 23 December 2014, 20:58; edited 1 time in total 
#5  Tuesday, 23 December 2014, 20:56
Shell - View user's profileSend private messageVisit poster's website 
Back to topPage bottom
Display posts from previous:    
 
HideSimilar Topics
Topic Author Forum Replies Last Post
This topic is locked: you cannot edit posts or make replies. Sticky: Normas específicas para el nuevo foro Pro... jguardon Programación en otros lenguajes 0 Tuesday, 13 August 2013, 21:25 View latest post
jguardon
No new posts Mostrar Elementos Sin Repetición Y Mostra... Shell General 2 Saturday, 22 November 2014, 18:22 View latest post
Shell
No new posts Como Declarar Array Limitando Elementos Po... v3ctor General 1 Friday, 12 December 2014, 18:37 View latest post
Shell
No new posts Filtrar Elementos Duplicados En Un Array T... gambafeliz General 9 Monday, 09 September 2019, 20:33 View latest post
tincho
 

Post new topic  Reply to topic  Page 1 of 1
 

Home » Forum » Gambas » Aplicaciones/Fragmentos de Código » Retos de programación

The time now is Saturday, 18 May 2024, 15:20 • All times are UTC + 1 Hour
View previous topic Recent Topics Enable KB mode Download Topic Printable Version Email to a Friend View next topic

Users browsing this topic: 0 Registered, 0 Hidden and 1 Guest
Registered Users: None

 
Permissions List
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events


  

 
cron