Sorting algorithms/Selection sort: Difference between revisions

Content added Content deleted
Line 701: Line 701:
50 DEFINT A-Z
50 DEFINT A-Z
60 OPTION BASE 1
60 OPTION BASE 1
70 I=0: J=0: IMAX = 0: ITP! = 0: TL! = 0
70 I=0: J=0: IMAX = 0: TP! = 0: TL! = 0
80 '
80 '
90 CLS
90 CLS
Line 726: Line 726:
300 FOR I=1 TO IMAX-1
300 FOR I=1 TO IMAX-1
310 FOR J=I+1 TO IMAX
310 FOR J=I+1 TO IMAX
320 IF N(I)>N(J) THEN SWAP N(I), N(J): ITP! = ITP! + 1
320 IF N(I)>N(J) THEN SWAP N(I), N(J): TP! = TP! + 1
330 NEXT J, I
330 NEXT J, I
340 LOCATE ,X: PRINT ". Done!"
340 LOCATE ,X: PRINT ". Done!"
Line 733: Line 733:
370 ' Final results
370 ' Final results
380 PRINT: PRINT: PRINT "Numbers sorted:"; IMAX
380 PRINT: PRINT: PRINT "Numbers sorted:"; IMAX
390 PRINT "Total permutations done:";ITP!
390 PRINT "Total permutations done:";TP!
400 PRINT "Time lapse:"; TIMER-TL!; "seconds."
400 PRINT "Time lapse:"; TIMER-TL!; "seconds."
410 PRINT
410 PRINT
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Selection_sort"