창조유저그룹-커즈닷컴

질문게시판
- 반드시 검색을 하신 후 원하는 답변을 찾을 수 없을 때, 질문을 올려주세요.

LIST ALL

Posted by 김환욱

2004-06-28 12:30:14, Hit : 3936

외국인이 작성한 버블정렬 소스

Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=qna&no=820

아래 비베 소스 인데요
이게 그 문제의 1000개의 아이템을 0.05초만에 정렬해버리는 소스 입니다.
아래 소스로 배열변수의 값을 정렬하고 리스트박스에 뿌려주는 형식이더군요..
리스트박스에 뿌려주는 소스는 필요가 없기때문에 이 게시물에 포함시키지 않고
배열변수의 정렬부분만 복사해서 붙여넣기 했습니다.
제가 2시간동안 창조로 이리저리 해봤는데 배열의 범위를 벗어났습니다
이런 틱틱대는 소리만 해대고 안되네요 ㅡㅡ;
컴파일까지는 성공했는데 반복문이 무한 루프에 빠져서 프로그램이 먹통되고 -_-;;
소스가 간단한거 같은데 이상하게 안되네요 ㅜ.ㅜ
외국인이 주석도 표시해 놨는데 주석때문에 햇갈리지 마세요^^
제가 구현한 버블정렬 소스는 무식해서 느린가봅니다.. -_-;

Public Sub Bubblesort(List() As Long, ByVal min As Long, ByVal max As Long)
Dim last_swap As Long
Dim i As Long
Dim j As Long
Dim tmp As Long

    ' Repeat until we are done.
    Do While min < max
        ' Bubble up.
        last_swap = min - 1
        ' For i = min + 1 To max
        i = min + 1
        Do While i <= max
            ' Find a bubble.
            If List(i - 1) > List(i) Then
                ' See where to drop the bubble.
                tmp = List(i - 1)
                j = i
                Do
                    List(j - 1) = List(j)
                    j = j + 1
                    If j > max Then Exit Do
                Loop While List(j) < tmp
                List(j - 1) = tmp
                last_swap = j - 1
                i = j + 1
            Else
                i = i + 1
            End If
        Loop
        ' Update max.
        max = last_swap - 1


       ' Bubble down.
        last_swap = max + 1
        ' For i = max - 1 To min Step -1
        i = max - 1
        Do While i >= min
            ' Find a bubble.
            If List(i + 1) < List(i) Then
                ' See where to drop the bubble.
                tmp = List(i + 1)
                j = i
                Do
                    List(j + 1) = List(j)
                    j = j - 1
                    If j < min Then Exit Do
                Loop While List(j) > tmp
                List(j + 1) = tmp
                last_swap = j + 1
                i = j - 1
            Else
                i = i - 1
            End If
        Loop
        ' Update min.
        min = last_swap + 1
    Loop
End Sub

최재일 2004-06-28 PM 2:34:05


헐~ 1000개를 0.05초만에 정렬하다니.. 비베의 반복문이 훨씬 빨라서 그러는거 아닐까요?? 암튼 함 분석해보져..

ps.이진백 2004-06-28 PM 3:04:11


대강 뭔소린지는 알았는데... 적용하기 무지 귀찮음.

ps.이진백 2004-06-28 PM 3:04:52


(환욱님 지금 1점차로 위자드님 추격 중)

김환욱 2004-06-28 PM 3:08:58


켁 -_-; 1점.... 이거 금방 금방 오르는데요?

김정엽[닷넷] 2004-06-28 PM 8:49:20


버블 정렬은 정렬 알고리즘중 최악의 알고리즘일건데.. 버블 정렬인가.. -_-;;; 0.05초... 라면... 이거 버블 맞는지 ;ㅁ; 적어도 삽입 정렬은 안될까요..? 더 나아가 분할 정렬이라던지.. ;;

최재일 2004-06-29 AM 1:30:58


저거 비베소스 분석해보니.. 내림차순과 오름차순 두개의 명령어군요.. 글구, 김환욱님이 소스자료실에 올리신 버블정렬과는 정렬방식이 다소 다른데요.. 좀 특이한 방법이라구 할까낭?? 아무래도 정렬속도가 더 빠를듯 싶습니다.. 암툰 완성해서 소스올려보져..

김환욱 2004-06-29 AM 7:54:52


네.. 오름차순과 내림차순으로 두개가 되어 있더라구요.. 버블정렬 기본 알고리즘을 변형시켜서 알고리즘의 원리가 이해가 안되서 그냥 똑같이 따라 할려니 햇갈려서 못하겠어요..^^ 이게 아주 효율적으로 정렬이 되는것 같아요.. 쓸데 없는데서 시간 안끌고...

김환욱 2004-06-29 AM 7:55:39


좀 의아 한게.. 오른차순과 내림차순이 따로 되어 있는게 아니고 한 프로시저 안에 저렇게 있다는게 좀 이상하고 그것때문에 더 햇갈리네요^^

최재일 2004-06-29 PM 6:31:11


김환욱님이 올리신 퀵버블정렬 소스는 처음줄부터 차차 비교해서 큰값을 맨 뒤로 보내는 방식을 반복해서 전체줄을 한번 반복할때마다 맨 뒤값을 하나씩 값 비교검사에서 제외시키는 방식이자나요.. 그런데 저거 비베소스는 작은값은 맨 앞으로, 큰값을 맨 뒤로 보내서 전체줄을 반복할때마다 맨 앞의 값과 맨 뒤의 값을 제외시키는 방식인거 같더라구여.. 그래서 아무래도 더 빠르겠죠?? 빠른시일내에 소스 올리지요.. 요새 괜히 바뻐서 전혀 손도 못데구 잇네요.. ㅡㅡ;