MODQUICKSORT «ˆ—%‰— pppppppppppppppppppppppppppppp%Š— p p%‹— p ž·Ÿ’œ¥¡ M·œQ¥¦Ÿ©¤·– p%Œ— p ×××××××××××××××××××××× p%— p p%Ž— p (Ÿ) 1987, V¸¡œ¦³¦ N’³’Ÿ p%— p p%— pppppppppppppppppppppppppppppp‘—%’— (A¥–· °’°’¤’ ¢¡œ°·¥ ·œž·«’œ-%“— °·¤– ¢¡ ž¦ž¡œ°’ ¤©·œ½ «¢°¦©¸’ ”— ž·¥¢¦–¦³ –’–· ž·Ÿ’œ¥½.)•—%–— P·Ÿ’œ¥¡ M·œQ¥¦Ÿ©¤·– ¤¸·¥¢¦$—— © ¡¢’°¦ ¸¦š·«·¸°½Ÿ˜ œ¡–·«½Ÿ˜%˜— ž·¸·¢’© ž·œ¸’ ¸¦š·«·¸°’˜· ©¸¦-"™— Ÿ’ °¡ ¢¡©¸¡œ’ ¡œ¦Ÿ¦ ³’–·œ½$š— QUICKSORT. Jœ’ –’œ½ · ½Ÿ˜¸·¥$›— ¥°¦«’¢¡¸°¦ ¡œ¦Ÿ¦ ž·Ÿ’œ¥¥.$œ— N¡¢’« ¯’ ¥–«·’° ¯¡©· ¢©¡–©¡%— "³·œ¦ª¦©·«¡°½  ¥¦Ÿ© ¤·–". M·-#ž— œ¦ª¦©¡Ÿ’ ž’œ¤–¡«¥¯’ ¤©¥–’Ÿ-%Ÿ— °·¤–, ¢’ ¯’ ¤°¦¢’°¡ °¡ ³¦°¦³¥³# — «’¸¦©·¤– ž·–’š°’ ž¡³’–¦ ž·$¡— ¡¢’°¦. V’¸¦©·¤– –’–· ž·³·Ÿ°’¢— ž¡³’–¦ ¯’ œ¡°¡ ˜·œ°·–·¥£—¤— 2*LG( MM )¥—#¦— ,©œ’ LG ¯’ ª¥°©Ÿ’ ¸·—¡-#§— ¦–³¥¤ ž¦ ¢¡©¸¡œ¥ 2 ¡ MM ¯’%¨— ³¡›¦³¡¸°¦ ž·Ÿ’– « ž·—¡³¥ ¡-%©— ¢’°½Ÿ˜ ž·¸·¢’©. (T¡© °¡ž¦©¸¡œ#ª— ž· 1024 ¡¢’°½Ÿ˜ ž·¸·¢’© ¤’%«— ž¦ ¡¢’°¦ ¢¡š’’ ž¡³’– ž· 20¬— Ÿ¦¤’¸).­—#®— P·Ÿ’œ¥¡ ¯’ œ¡°¡ ¤«½³ ·¢-%¯— ˜¡°¦³, ¢ž¥¤·š’³ «·¸¡°¦ ¡ ·³’-#°— ¢’°¦³¦ ©¸¡œ’°½³¦ °¡ «·¸¡¯¦Ÿ¦±— ž·—¡³.$²— R·¢˜¡°¦ ž·Ÿ’œ¥½ M·œQ¥¦Ÿ©-!³— ¤·– ¯’ œ¡°· °¡¤¸’œ¥¯¦Ÿ¦³¦´— ¦œ’°–¦ª¦©¡–·½:µ— "M·œQ¥¦Ÿ©¤·–"¶— "M ¤F¥°" ·— MA ¸— MN ¹— MM º— M0 »— M1$¼— V ž·—¡³¥ ¯’ –’š¡ œ’ª¦°·«¡–"½— ª¥°©Ÿ¦, ©–’¡ š¥œ’ ž·«¡œ’–%¾— ž··«°¡«¡°¦ œ«·¥ ž·¸·¢’©. T¡–·%¿— ª¥°©Ÿ’ ³¥¤¦ š½– °¡ ¡œ©¥ ·¢°¡-%À— Ÿ’°’³ ¦œ’°–¦ª¦©¡–·’³ "M ¤F¥°"$Á— ¡ ³¥¤¦ š½– ¥©·°Ÿ’°¡ ¦°¤–¥©Ÿ¦"— RETURN. V¤–¥ž°¦³¦ ž¡¡³’–½$× –’–· ª¥°©Ÿ’ ¯¤·¥ Ÿ¦¤¸¡ M0,M1.$Ä— T¡–· Ÿ¦¤¸¡ ³·˜·¥ ž’œ¤–¡«·«¡–#Å— ¯’œ°¡© ž¦³· ¡¢’°’ ž·¸·¢©½,"Æ— °’š· ¯’° ¯’¯¦Ÿ˜ ¦°œ’›½. V½-$Ç— ¤–¥ž°¦³ ž¡¡³’–’³ ¯’ ˜·œ°·–¡ È— –¥’ °’š· ª¡¸¤’ ž¦¡¢’°¡ É— ¦œ’°–¦ª¦©¡–·¥ MB –¡©, ¢’$Ê— ¯’-¸¦ ž·¸·¢©¡ œ¡°¡ ž¡¡³’–’³"Ë— M0 ³’°¤¦ °’¢ ž·¸·¢©¡ ¥Ÿ’°¡#Ì— ž¡¡³’–’³ M1, ¯’ ˜·œ°·–¡ MB$Í— °¡¤–¡«’°¡ °¡ –¥’ ¡ « ·ž¡Ÿ°’³$Η ž¦ž¡œ’ ¯’ MB = ª¡¸¤’. N¡ž¦-$Ï— ©¸¡œ, ¯¤·¥-¸¦ ¡¢’°½³¦ ž·¸·¢-#З ©¡³¦ ž¦³· Ÿ¦¤¸¡ M0,M1, ³¥¢’%Ñ— œ’ª¦°¦Ÿ’ ž··«°¡«¡Ÿ¦ ª¥©Ÿ’ «½-Ò— ž¡œ¡– –¡©–·:Ó—Ô— LABEL "M ¤F¥°"Õ— MB = M0 < M1Ö— RETURN×—%Ø— P’œ «·¸¡°¦³ ¡œ¦Ÿ¦ ž·Ÿ’œ¥½$Ù— ¯’ –’š¡ °¡ž¸°¦– ¯’¯¦ ž¡¡³’- Ú— –½:$Û— 1) P¡¡³’– MA ¯’ ž·¸’ ž·¸·-"Ü— ¢’©, °’š· ¯’¯¦Ÿ˜ ¦°œ’›¥.%Ý— V½¢°¡³ ž«©¥ ž·¸’ MA ¯’ œ¡°"Þ— ž¡«’ ¤–¡«š·¥ ª¥°©Ÿ’ ž·ß— ž··«°¡°¦."à— 2) P¡¡³’– MN ¥œ¡«¡ ž·Ÿ’–á— ¡¢’°½Ÿ˜ ž·¸·¢’©.%â— 3) P¡¡³’– MM ¯’ –’š¡ °¡ž¸-%ã— °¦– ³¡›¦³¡¸°¦³ ž·Ÿ–’³ ¡¢’-%ä— °½Ÿ˜ ž·¸·¢’© ¢’ «¤’Ÿ˜ «·¸¡-!å— °¦, ©–’¡ ¤’ ¥¤©¥–’Ÿ°¦.æ—"ç— V·¸¡°¦ ¡œ¦Ÿ¦ ž·Ÿ’œ¥½ ¤’$è— ž· °¡ž¸°’°¦ ž¡¡³’–¥ ž·«’œ’é— ž¦©¡¢’³:ê—ë— GOSUB "M·œQ¥¦Ÿ©¤·–"ì—#í— P¦ «·¸¡°¦ ¡œ¦Ÿ¦ ž·Ÿ’œ¥½%î— ³¥¢’ œ·¯¦– © Ÿ˜½š’ ž·¥¢’ –’˜œ½#ï— š½¸-¸¦ ž¡¡³’– MM « ž¥š’˜¥$ð— ž·—¡³¥ ¤°¦¢’°, °’š· š½¸ ¢¡-#ñ— œ¡° ³’°¤¦ °’¢ ž·Ÿ’– ¡¢’°½Ÿ˜$ò— ž·¸·¢’©. V –¡©·«’³ ž¦ž¡œ’ ¤’#ó— –¦¤©°’ Ÿ˜½š·«¡ ¢ž¡«¡ ¡ ž·-ô— —¡³ ¤’ ¥©·°Ÿ¦.õ—#ö— O³’¢’°¦ ©¸¡œ’°¡ °¡ «·¸¡¯¦Ÿ¦%÷— ž·—¡³ ¯¤·¥ œ¡°¡ ž·¥¢¦–¦³ °¡-%ø— ¤¸’œ¥¯¦Ÿ¦Ÿ˜ ¦œ’°–¦ª¦©¡–·¥ ¡-ù— œ¦Ÿ¦ ž·Ÿ’œ¥·¥:ú—"û— "M·œQ¥¦Ÿ©¤·–" "M ¤F¥°"ü— MM MNý— MA (ž·¸’) MBþ— M0 M1ÿ— MP MH— MT (ž·¸’) MS— ML MR— MI MJ— MX MY—$— P¦ ž·¥¢¦–¦ –’Ÿ˜–· ¦œ’°–¦ª¦-$— ©¡–·¥ ¯¦°½³, °’¢ «½¤’ ž·ž¤¡- — °½³ ¢ž¥¤·š’³ ³¥¢’ œ·¯¦– ©— Ÿ˜½š°’ ª¥°©Ÿ¦ ž·—¡³¥. — — P·¢°¡³©¡:$ — J’ –’š¡ ž¡³¡–·«¡–% — °¡ ž·Ÿ’– ¢°¡©¥, ©–’½ ž·¥¢¦«¡% — BASIC ž· ¡°¡¸½¢¥ ¦œ’°–¦ª¦©¡- — –·¥.—"— P’œ ž·¥¢¦–¦³ ž·Ÿ’œ¥½ ¯’%— ³·¢°· –’°–· °¡«·œ «½³¡¢¡– ž¦-%— ©¡¢’³ BASIC-¥ DELETE ¢¡ ¥Ÿ’¸’³$— ¢¦¤©¡°¦ «’–¤¦ ©¡ž¡Ÿ¦–½ ž¡³’–¦— ž· ¡¢’°¦.—Ê "M·œQ¥¦Ÿ©¤·–"“ MPõ„ â  MPô‡H! MHôÿ€(ÿŒ(MM)û šª÷‚) – MT(MH,)4MSô:MT(MS,)ô:MT(MS,)ôMN4 MLôMT(MS,):MRôMT(MS,):MSôMSø MIôML:MJôMR  MXôMA(ÿ€((ML÷MR)û‚))! M0ôMA(MI):M1ôMX:"M ¤F¥°"  “ í MB â #! MIôMI÷" € !# M0ôMX:M1ôMA(MJ):"M ¤F¥°"$ “ í MB â '% MJôMJø& € #' “ MIõMJ â ,( MYôMA(MI)) MA(MI)ôMA(MJ)* MA(MJ)ôMY"+ MIôMI÷:MJôMJø, “ MIñMJ â - “ (MJøML)ó(MRøMI) â 4. “ MIóMR â 2/ MSôMS÷0 “ MSõMH â <+1 MT(MS,)ôMI:MT(MS,)ôMR2 MRôMJ3 € 94 “ MJñML â 85 MSôMS÷6 “ MSõMH â <*7 MT(MS,)ôML:MT(MS,)ôMJ 8 MLôMI9 “ MLöMR â : “ MSõ€ â ;„< "E· ¦° M·œQ¥¦Ÿ©¤·–""= "³¡½ š’ - š¡œ ž¡¡³’–’ MM">˜ ":€ .“ AAô† ë AAõ‡ ì AAö‡6 â  € Ä R$ôR$÷A$þ¤…@