Comunidad Gambas-es

Shell 11-12-2021, 23:59

Buenas!.

Buscando temas de Basic y Linux, encontré esta web sobre recursos en general de Linux.
Os muestro una captura de un menú de la web en el que podéis escoger el tema que más os interese.

[Imagen: aAomBqu.png]

LinuxLinks

En el iconos de libros podemos encontrar libros que son Open Source, por lenguajes.
En el caso del Basic, encontrareis algo que os gustará ver en el número 1. Shy

6 Excellent Free Books to Learn BASIC

Aunque no están en orden los lenguajes de programación para encontrarlos, hay libros, tutoriales,
mucha información que os gustará. Y quien quiera contribuir con la web, seguro que puede hacerlo.

Saludos

Mundo Linux Respuestas 1

cargar un Result con un Array

alessandri 11-12-2021, 16:43

Hola amigos

¿es posible cargar un objeto Result con datos que se encuentran en un Array, o bien con una Struct?

Gracias.

Aplicaciones/Fragmentos de Código Respuestas 4

Rellenar un array con palabras repetidas

Shell 11-12-2021, 12:25

Buenas!.

Después de ver un ejemplo con Python, busqué algún método para rellanar un array con palabras repetidas.
Encontré el método "Fill", pero este método necesita que el array tenga dimensiones.

No puedes hacer algo como:

Código:
Dim dulces as new String[]

dulces.fill("galletas",comienza desde aquí, rellena n veces el array con la palabra "galletas")

'O también

dulces.fill("galletas", rellena n veces el array con la palabra "galletas")

Y estuve probando distintas maneras de hacerlo. A ver si ustedes conocen una forma mejor que las de abajo.
Hice un test a ver cual era la más rápida.

Código:
Public Sub Main()

  Randomize

  TestBenchMark("LlenarArray")

  TestBenchMark("LlenarArray2")

  TestBenchMark("LlenarArray3")

End

Public Sub TestBenchMark(nombrefuncion As String)

  Dim i, t As Float

  Dim afinal As String[]

  Dim ob As Object

  Dim palabras As String[] = ["galletas", "merenges"]

  Dim palabra As String

  Dim veces As Integer

  ob = Me

  t = Timer

  afinal = New String[]  

  For i = 1 To 10 ^ 6     

    palabra = palabras[Rand(0, palabras.Max)]

    veces = Rand(1, 10)

    If nombrefuncion <> "LlenarArray2" Then

      afinal = Object.Call(ob, nombrefuncion, [afinal, palabra, veces])    

    Else

      afinal.Insert(Object.Call(ob, nombrefuncion, [palabra, veces]))

    Endif

  Next

  Print "Tiempo para 10^6 repeticiones, método: " & nombrefuncion & " = " & "\t"; Format(Timer - t, "0.######") & "s"

End

Public Function LlenarArray(apalabras As String[], palabra As String, veces As Integer) As String[]

  Dim cadenaconrepeticiones As String

  cadenaconrepeticiones = String(veces, palabra & " ")

  apalabras.Insert(Split(cadenaconrepeticiones, " ", "'", True))

  Return apalabras

End

Public Function LlenarArray2(palabra As String, veces As Integer) As String[]

  Dim apalabras As New String[]

  apalabras.Resize(veces)

  apalabras.Fill(palabra)

  Return apalabras

End

Public Function LlenarArray3(apalabras As String[], palabra As String, veces As Integer) As String[]

  If apalabras.Count = 0 Then

    apalabras.Resize(veces)

    apalabras.Fill(palabra)

  Else

    apalabras.Resize(apalabras.Count + veces)

    apalabras.Fill(palabra, apalabras.Count - veces, veces)

  Endif

  Return apalabras

End

La respuesta fue:

Cita:Tiempo para 10^6 repeticiones, método: LlenarArray =    1,245407s
Tiempo para 10^6 repeticiones, método: LlenarArray2 =   0,960382s
Tiempo para 10^6 repeticiones, método: LlenarArray3 =   0,80571s

Os adjunto el ejemplo:

Saludos

Archivos adjuntos