Bubble sort: differenze tra le versioni

Versione delle 11:58, 28 nov 2004

Versione delle 12:38, 28 nov 2004

Riga 111:

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

return seq

===[[Lisp]]===

(DEFUN bubble-sort (X)

(LET ((Bubble (bubble X)))

(IF (EQUAL X Bubble) X (bubble-sort Bubble))))

(DEFUN bubble (X)

(COND ((NULL X) X)

((= (LENGTH X) 1) X)

((LISTP X)

(IF (> (CADR X) (CAR X))

(CONS (CADR X)

(bubble (CONS (CAR X) (CDR X))))

(CONS (CAR X) (bubble (CDR X)))))

(T (ERROR “bubble expects a list”))))

===[[AppleScript]]===