두근두근이야기

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)

바람개비 소스to deletesetpencolot[255 255 255]setpensize[125 125]forward 1 back 1end to draw.wheelpenup forward 30 pendown right 120repeat 6[forward 30 repeat 3 [left 120 forward 30 left 120] right 60]left 120 penup back 30 pendownend to movie :speedhidetutlerepeat(abs(int(360/ :speed)))[delete right :speed pinwheel wait 3]showturtleend to pinwheelsetpencolor[255 0 0]setfloodcolor[255 125 0]draw.wheel..