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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


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


Desconectado Desconectado

Mensajes: 551



Ver Perfil
De nuevo con los numeros :)
« en: 16 Octubre 2015, 19:16 pm »

Hola

Bien gracias a nuestro querido amigo Elektro (que jaleti soy  )   :silbar:

tengo este codigo o funcion que funciona bien.pero ahora se me ocurre que en ves de un solo digito con los que se combinan ahora lo quiero hacer de dos digitos .

Ahora es con estos

{0, 3, 4, 5, 8}

pero si pongo

{01, 13, 34, 55, 84}


No logro hacer lo mismo que con los digitos solos he modificado trasteado pero nada


Código
  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.  
  3.        Dim valuesInt As IEnumerable(Of Integer) =
  4.            {0, 3, 4, 5, 8}
  5.        {01, 13, 34, 55, 84} <---------usar esto ????
  6.  
  7.        Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
  8.            Form1.GetPairs(valuesInt, maxValue:=90)
  9.  
  10.        For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
  11.  
  12.            '  ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
  13.  
  14.        Next pair
  15.  
  16.  
  17.  
  18. Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
  19.                                    Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
  20.  
  21.        If (col.Max >= 10) Then
  22.            Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")
  23.  
  24.        Else
  25.  
  26.            Return From value As Integer In col
  27.                   Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
  28.                          key:=value,
  29.                          value:=From index As Integer In col
  30.                                 Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
  31.                                 Select CInt(value & index))
  32.  
  33.  
  34.        End If


Luis






« Última modificación: 17 Octubre 2015, 09:41 am por luis456 » En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: De nuevo con los numeros :)
« Respuesta #1 en: 17 Octubre 2015, 09:40 am »

Probando pude hacer que lo haga pero no me sirve  :¬¬

este post lo doy  por cerrado


Luis




En línea

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

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines