Máximo o mínimo valor en un listbox

[[Delphius]]

Empezado por fjcg02

La verdad es que es aplastante la respuesta que ofreces, Delphius, y no admite duda.

Pero haciendo un pequeño ejercicio de coste/beneficio, y teniendo en cuenta que si se trata de un listbox no debería tener demasiados elementos... me atrevería a decir que en este caso nos cuesta más la salsa que la perdiz. Y que conste que tu respuesta es "la respuesta".

Un saludo "ordenado"

Hola, fjcg02.
Pues no comprendo tu punto. Aún siendo, y con más razón, pocos los elementos del TListBox es por lejos más preferible un simple recorrido.
Lo lógico sería pensar al revés: cuanto más elementos, convendría ordenar. ¿Para que ordenar, pocos elementos? ¿Aporta en algo? En realidad, no hay beneficio alguno. Si asumiéramos que la máquina es perfecta y tuviera siempre un valor de factor c constante, aplicar un ordenamiento consume O(n), mientras que con QuickSort en el mejor caso O(n * log n). Si hacemos cálculos, que para simplificar c = 1:
n = 10 => O(n) = 10, O(n * log n) = 10. Dif = 0
n = 100 => O(n) = 100, O(n * log n) = 200. Dif = 100
n = 1000 => O(n) = 1000, O(n * log n) = 3000. Dif = 2000

Con n menores a 10 se aprecia mejor mi planteo:
n = 5 => O(n) = 5, O(n * log n) = 3,49. Dif = 1,51
n = 2 => O(n) = 2, O(n * log n) = 0,60. Dif = 1,4
n = 1 => O(n) = 1, O(n * log n) = 0. Dif = 1

No se "gana" demasiado cuando más chico sea ¿O no? . Y como quedó demostrado, cuando mayor sea la lista más conveniente es el recorrido.
Esto demuestra que para pocos elementos se peca demasiado en esforzarse ordenarlos.

Incluso alguien se podría llegar a pensar que para el caso, para pocos elementos podríamos aprovechar burbuja mejorado. Ufff... ¡peor! Éste es O(n^2).

Si me explicas mejor tu punto...

Saludos,

[[fjcg02]]

Delphius, veo que no me pillas el punto...

En definitiva, si puedo escribir una línea de código, mejor que dos, siempre y cuando el rendimiento no penalice al usuario. Es que cuando uno es vago, es vago .... sin más... y eso, para mi vale más que cualquier cosa.

Y sí, no hace falta que me lo expliques, que tienes razón. Con runge kuta o sin él...

Saludos

[[Delphius]]

Empezado por fjcg02

Delphius, veo que no me pillas el punto...

En definitiva, si puedo escribir una línea de código, mejor que dos, siempre y cuando el rendimiento no penalice al usuario. Es que cuando uno es vago, es vago .... sin más... y eso, para mi vale más que cualquier cosa.

Y sí, no hace falta que me lo expliques, que tienes razón. Con runge kuta o sin él...

Saludos

Ha... iba por cuestión de LDC

Es que para mi las LDC no son de todo una buen métrica de eficiencia y productividad.

Incluso aún escribiendo un ciclo como el que aportó román me animaría a decir que es poca cosa el "costo", sino me equivoqué al hacer cuentas rápidas, la V(G) es 4; y LDC/V(G) da un valor 7/4 = 1,75. Este valor es muy bajo... y me indica que no llega a 2 LDC en promedio por cada V(G) del algoritmo... algo que una simple prueba a dedo, permitiría comprobar que es un algoritmo de poca cosa.

Dime... ¿Cuántas LDC implica y V(G), requiere, indirectamente el uso de un QuickSort?

Saludos,

[roman]

Empezado por fjcg02

En definitiva, si puedo escribir una línea de código, mejor que dos, siempre y cuando el rendimiento no penalice al usuario. Es que cuando uno es vago, es vago .... sin más... y eso, para mi vale más que cualquier cosa.

Entiendo tu punto y hasta podría decir que lo apoyo. Pero en este caso sigo dándole la razón a Delphius. Vamos a ver si realmente tenemos menos líneas de código.

Asumamos, por lo que han comentado antes, que debemos usar un StringList separado para no alterar la lista original. Podríamos hacer algo así:

Código Delphi [-]
var
  List: TStringList;

begin
  List := TStringList.Create;

  try
    with ListBox1 do
    begin
      List.AddStrings(Items);
      List.Sort;

      ShowMessage(Format('Min: %s, Max: %s',[List[0], List[Count - 1]]));
    end;
  finally
    List.Free;
  end;
end;

Que no es tan cortito. Pero aún hay más. No sirve. De hecho, tampoco el código que puse originalmente con Sorted := true sirve (punto extra al que diga por qué no sirve ) Hay que usar el método CustomSort del StringList y proveer una función de comparación, con lo cual yo creo que hasta rebasamos las líneas de código del recorrido simple.

// Saludos

[[fjcg02]]

Aquí alguien más que patinar derrapa.

1.- En mi 4º intervención ya digo que teneis razón.
2.- Mi única intención era ayudar a alguien a resolver un problema ( seguro que de la manera menos acertada )
3.- Para leer este foro e intentar ayudar a alguien quito tiempo de mi trabajo y de mi sueño, que son los que me permiten vivir económicamente y reparar mi cansancio.
4.- No me dedico profesionalmente a la programación desde hace más de 12 años, ni con delphi ni con ninguna otro lenguaje.
5.- Me siento como un palomino al que le han descerrajado 5 cartuchazos a bocajarro sin venir a cuento.

Por lo expuesto, y dado que no quiero gastar ni un ápice de esfuerzo en seguir con esta txuminada...

Ahí os quedais.

Adios ClubDelphi. Me paso a los foros de titis, que me tratan mejor... Seguid tratando así a la gente.

Adios para siempre. Sin acritud.

[[newtron]]

Compañeros....

Creo que nuestro amigo CarlosAlberto ha salido corriendo acojonado.

[ecfisa]

Empezado por newtron

Compañeros....
Creo que nuestro amigo CarlosAlberto ha salido corriendo acojonado.

O peor aún, en un nuevo mensaje nos comenta: Muchachos, los datos de la serie se agregan al ListBox recorriendo una consulta ordenada por los mismos...

Saludos.

[roman]

Empezado por fjcg02

Aquí alguien más que patinar derrapa.

Supongo que me toca parte de esto. En todo caso lamento que tomes esta decisión que, espero, reviertas. Si sentiste que te estaba atacando te pido una sincera disculpa pero no era mi ánimo molestarte. Para mi, se trataba de una mera discusión academica sana. De las discusiones realizadas con respeto siempre salen cosa positivas para todos.

Como dije, te ofrezco disculpas si te sentiste ofendido y confío en que reconsideres tu decisión.

// Saludos

[[newtron]]

Amigo fjcg02.

Aunque me puedes decir que quien me ha dado vela en este entierro porque no he intervenido en este debate pero a lo mejor te hablo desde un punto de vista más objetivo precisamente por eso.

En los distintos mensajes de este hilo lo único que he visto es un pequeño debate sobre la conveniencia o no de usar determinadas técnicas u otras. En ningún momento he visto ningún ataque a tu persona, solo argumentos para apoyar las técnicas recomendadas.

Si es cierto que a veces estos debates se extienden demasiado por tonterías pero bueno, a mi particularmente me sirven para adquirir conocimientos que de otra manera no tendría.

De una manera o de otra pienso que todas las opiniones de todos nosotros son válidas aunque nos equivoquemos, todos estamos aquí para intentar echar una mano de la mejor forma posible y al mismo tiempo para que nos la echen cuando nos hace falta.

Resumiendo, no te enfades tío, que tu presencia en el foro es apreciada por todos con toda seguridad.

Saludos

[ecfisa]

Hola fjcg02.

Al igual que newtron, solo partipé del hilo con una observación banal. Pero me ha dejado muy mal la resolución que pensas tomar .

Lamento muchísimo que se provoque esta situación por una diferencia de criterios, que según creo, no teniá intención agraviante.
De todos modos, si te has sentido herido por lo que alguién ha dicho, apelando a tu tolerancia te pido por favor que no castigues al resto de los integrantes, privándonos de tus valiosos aportes.

Espero sea nada más que un disgusto pasajero y pueda verte cuanto antes por aquí.

Un saludo.