Bubble sort: differenze tra le versioni

Versione delle 12:40, 28 nov 2004

Versione delle 13:02, 28 nov 2004

Riga 113:

seq[index], seq[index + 1] = seq[index + 1], seq[index]

return seq

===[[FORTRAN]]===

SUBROUTINE SSORT (X, IY, N)

IMPLICIT NONE

JMAX=N-1

DO 200 I=1,N-1

TEMP=1.E38

DO 100 J=1,JMAX

IF(X(J).GT.X(J+1)) GO TO 100

TEMP=X(J)

X(J)=X(J+1)

X(J+1)=TEMP

ITEMP=IY(J)

IY(J)=IY(J+1)

IY(J+1)=ITEMP

100 CONTINUE

IF(TEMP.EQ.1.E38) GO TO 300

JMAX=JMAX-1

200 CONTINUE

300 RETURN

END

===[[Lisp]]===