두근두근이야기

selection sort프로그램 to selectionsort :llocalmake "a (listtoarray :l) ;;변수를 {}배열로 변환한다 localmake "n (count :a) ;;count는 리스트의 개수를 반환한다.localmake "n1 :n-1local [i j min temp]repeat :n1[make "i repcount ;;repcount 초기값 1, 반복 될 때마다 1씩 증가한다. make "min :i ;; :i번째를 최소로 할당repeat (:n-:i) [make "j sum :i repcount ;; :n-:i번 반복한다.if lessp (item :j :a)(item :min :a) [make "min :j]] ;;a(j)