[Solar-general] Liberando código QBASIC. ..

Jue Oct 28 20:25:42 CEST 2004

El copyright es de esa muestra de codigo que publica MS, no del algoritmo.
No copies eso y chau, reescribilo.

Mensaje citado por José <jose.masson en gmail.com>:

> Che Grardo... pero como es el tema... ?... por lo que entiendo esa
> rutina (QuickSort) puede interpretarse como una "tecnica".... es
> posible patentar "tecnicas" o formas de hacer algo???
> Se que actualmente en la UE se está luchando contra eso.. pero acá en
> Argentina como está el tema?
> 
> Perdón por la ignarancia
> 
> Abrazos
> 
> José
> 
> -- 
> Rebeldes Stereotipos
> Domingos 20-22 Hs FM BA 89.1MHz (San Isidro)
> www.ba89.com.ar <-- Escuchanos ON-Line!
> **************************************************
> PuertoRock.com.ar
> www.puertorock.com.ar
> **************************************************
> Chevyfierro.com
> www.chevyfierro.com
> **************************************************
> UTUTO-e GNU + Linux - 100% Libre!!!
> http://e.ututo.org.ar
> **************************************************
> 
> On Thu, 28 Oct 2004 10:16:56 -0300, Gerardo Díaz
> <gerardobdiaz en arnet.com.ar> wrote:
> > -----BEGIN PGP SIGNED MESSAGE-----
> > Hash: SHA1
> > 
> > 
> > Perdón por contestarme a mí mismo, pero mirá a quién encontré :-(
> > 
> > - --begin quote--
> > 
> >
> 
http://research.microsoft.com/fse/asml/samples/QuickSort/QuickSort.asml.content.
html
> > 
> > Copyright (C) Microsoft Corporation. All rights reserved.
> > 1. Quicksort
> > 
> > Here is Hoare's quicksort using sequence comprehensions:
> > 
> > bar(xs as Seq of Integer) as Seq of Integer
> > ~  return xs
> > qsort(s as Seq of Integer) as Seq of Integer
> > ~  if s = [] then
> > ~    return []
> > ~  else
> > ~    pivot = Head(s)
> > ~    rest = Tail(s)
> > ~    return qsort([y | y in rest where y < pivot]) +
> > ~            [pivot] +
> > ~            qsort([y | y in rest where y >= pivot])
> > 
> > A sample main program sorts the Sequence [7, 8, 2, 42] and prints the
> > result:
> > 
> > Main()
> > ~  WriteLine(ToString(qsort([7, 8, 2, 42])))
> > 
> > The call to ToString is just to work around a current problem in the
> > AsmL2 compiler.
> > 
> > Gerardo Díaz wrote:
> > |
> > |
> > | Ignacio Vissani wrote:
> > | | El autor de Quicksort es C.A.R.Hoare (Wikipedia!)
> > | |
> > |
> > | Ténquiu (acabo de poner el crédito correspondiente en la
> > | rutina y un display por pantalla cuando `sorteo', quedó
> > | re-pituco)
> > |
> > |
> > 
> > - --
> > - --
> > Gerardo Díaz
> > - -----------------
> > Asociáte a SOLAR!
> > Software Libre Argentina
> > http://www.solar.org.ar/breve.php3?id_breve=78
> > -----BEGIN PGP SIGNATURE-----
> > Version: GnuPG v1.0.2 (GNU/Linux)
> > Comment: For info see http://www.gnupg.org
> > 
> > iD8DBQFBgPEkLHLbx9ffmf8RAmlvAJ443t8xCliMBZMCSKRL3uUCxv0QbACglgeF
> > 7v0hW9UxM0Bf3dDNZjR8z6E=
> > =CMo5
> > 
> > 
> > -----END PGP SIGNATURE-----
> > 
> > _______________________________________________
> > Solar-general mailing list
> > Solar-general en lists.ourproject.org
> > http://lists.ourproject.org/cgi-bin/mailman/listinfo/solar-general
> >
> 
> _______________________________________________
> Solar-general mailing list
> Solar-general en lists.ourproject.org
> http://lists.ourproject.org/cgi-bin/mailman/listinfo/solar-general
> 

-- 
Asociación civil SOLAR
Software Libre Argentina
http://www.solar.org.ar