🚀 go-pugleaf

"Sergio(R)" <sergio_digiorgi@tin.it> ha scritto nel messaggio
news:qba6jughm6brec6ad3h2eubj5fbfu0mirb@4ax.com...
> On Mon, 15 Jul 2002 11:27:53 GMT, "lorenzo" <sirio32-togli il txt tra le
> lineette se mi vuoi rispondere in pers-@iol.it> wrote:
>
> E' un problema piuttosto comune. Uno dei piu' veloci e' quello con
> l'algoritmodi Metzner. Questa e' la versione in QB, se vuoi farlo con una
> CALL, convertirlo e' abbastanza semplice.
>
> REM ******************* Sort *********************************
>       N% = NumMax%: M% = Y% + 1
> SRT001:
>       M% = INT(M% / 2): IF M% = 0 THEN RETURN
>       J% = 1: K% = N% - M%
> SRT002:
>       IF J% > K% THEN GOTO SRT001
>       I% = J%
> SRT003:
>       IF I% < 0 THEN GOTO SRT004
>       IF TABSOR$(I% + M%) < TABSOR$(I%) THEN GOTO SRT005
> SRT004:
>       J% = J% + 1: GOTO SRT002
> SRT005:
>       SWAP TABSOR$(I%), TABSOR$(I% + M%)
>       I% = I% - M%: GOTO SRT003
>
> --
> Ciao
> Sergio�


ti ringrazio, mi � stato d'aiuto per la sintassi anche se poi ho deciso di
fare pi� di qualcosa di testa mia. Ho costruito una procedura funzionante
per un array di dati casuali. Ho fatto qualche statistica e si � rivelata
funzionale (diciamo cos�). Ora devo ottimizzarla  (50 dati in 0.285sec e 100
dati in 1.056sec in media per i dati semplici senza copia incolla ecc.) ma
la metto subito in linea perch� ho bisogno dell'ordinamento.
non posto il listato perch� � molto lungo ma se qualcuno ne fosse curioso
della sintassi in VBA me lo dica che glielo invio.

Grazie.
Ciao a tutti
Lorenzo