Programas HP48: Quicksort

HP48GPara que la cosa no pare, ahí va un programilla que hice hace años. Lo publico con intención de que se aproveche y no se pierda en la noche de los tiempos. Este programa es una implementación del conocido algoritmo Quicksort. Hace ya tanto tiempo que no sería capaz de explicar como funciona (el lenguaje de la HP no se puede comentar, grave error). Por lo que recuerdo, se compone de dos programas llamados “IQuick” y “Quick”. El primero es el programa principal y el segundo, la función recursiva. Coje la variable ΣDAT y la ordena.

IQuick: « ΣDAT SIZE LIST→ DROP DROP 1 SWAP 0 0 0 Quick »

Quick: « → L R I J C « L 'I' STO R 'J' STO ΣDAT L R + 2 / IP 1 2 →LIST GET 'C' STO DO WHILE ΣDAT I 1 2 →LIST GET C REPEAT J 1 + 'J' STO END IF I J ≤ THEN ΣDAT I J RSWP 'ΣDAT' STO I 1 + 'I' STO J 1 - 'J' STO END UNTIL I J > END IF L J < THEN L J 0 0 0 Quick END IF I R < THEN I R 0 0 0 Quick END » »

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s