elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Mas combinaciones condicionadas
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Mas combinaciones condicionadas  (Leído 553 veces)
luis456


Desconectado Desconectado

Mensajes: 525



Ver Perfil
Mas combinaciones condicionadas
« en: 5 Abril 2016, 11:42 »

Hola de nuevo

Bien sigo con mis rollos sobre combinatorias  >:D me cuesta jejeje

Bueno tengo este codigo

Código
  1. Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 34, 55, 84, 99}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)


esto me entrega los siguientes resultados (pongo solo algunos ya que son 55)


01 03 04
01 03 05
01 03 08
01 03 13 ********* 03 y 13
01 04 34 *********04  y 34
03 05 08
03 05 13 *********03 y 13

lo que quiero es eliminar los que tengan la misma terminación ejemplo los que marco con asterisco llevan dos números donde son iguales la terminación.

Con linq: ya lo tengo Hecho pero necesito saber como hacerlo con este método :)

ejemplo en Liq: por si le sirve a alguien ( Funciona )

 
Código
  1. Dim Bz986 As IEnumerable(Of Integer) =
  2. (
  3. From Value As Integer In split(12).Concat(split(15).Concat(split(16)))
  4. Where (Value <= MAX AndAlso Value > 0)).Distinct
  5.  
  6.         Dim selectedValues11 As IEnumerable(Of Integer) =
  7.          From value As Integer In Bz909
  8.          Group By CStr(value).Last Into Group
  9.         Select Group.First()
  10.         Take(16())
  11.        Dim Sl986 As IEnumerable(Of Integer) = Bz986
  12.        Dim SM986 As List(Of Integer) = Bz986.Take(16).ToList
  13.        SM986.Sort()


Luis






En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
combinaciones VB
Programación Visual Basic
vivachapas 4 5,821 Último mensaje 30 Diciembre 2008, 01:17
por vivachapas
combinaciones???
Programación C/C++
nb248077 1 966 Último mensaje 2 Octubre 2013, 08:23
por eferion
Mis malas combinaciones :( « 1 2 ... 5 6 »
.NET (C#, VB.NET, ASP)
luis456 51 12,891 Último mensaje 3 Septiembre 2014, 00:24
por Eleкtro
Combinaciones con subrangos
.NET (C#, VB.NET, ASP)
luis456 1 730 Último mensaje 25 Noviembre 2014, 12:20
por Eleкtro
Otra de combinaciones pero ahora condicionadas
.NET (C#, VB.NET, ASP)
luis456 0 109 Último mensaje 5 Abril 2020, 17:29
por luis456
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines