[讨论]->征求最佳答案：删除表中第 n 个元素的最快算法

caoyin

QQ群讨论问题，发到论坛征集最佳算法
;; [功能] 删除表中第 n 个元素
;; [参数] lst---任意表
;;            n-----表中元素的顺序号码，第一个元素为 0
;;测试：(见3楼提供的表)
1.表长度为2000，删除第300个元素
.表长度为2000，删除第1900个元素
3.表长度为30，删除第16个元素
4.表长度为30，删除第6个元素
求4次测试时间按照如下方法计算最短者，要求4次测试函数为同一个函数.
第1个表测试10次时间+第2个表测试10次时间+第3个表测试50次时间+第4个表测试50次时间
注意:函数要求适用任何形式的表，不能只针对个例。

llsheng_73

使用内部函数nthcdr和revappend能达到极速

1. (defun delitem(e lst / i);;;删除第一次出现指定元素
   
2.   (if(setq i(vl-position e lst))
   
3.     (revappend(nthcdr(-(length lst)i)(reverse lst))(nthcdr(1+ i)lst))
   
4.     lst))
   
5. (defun removenth(i lst);;;删除指定位置元素
   
6.   (revappend(nthcdr(-(length lst)i)(reverse lst))(nthcdr(1+ i)lst)))

(defun delitem(e lst / i);;;删除第一次出现指定元素<br />   (if(setq i(vl-position e lst))<br />     (revappend(nthcdr(-(length lst)i)(reverse lst))(nthcdr(1+ i)lst))<br />     lst))<br /> (defun removenth(i lst);;;删除指定位置元素<br />   (revappend(nthcdr(-(length lst)i)(reverse lst))(nthcdr(1+ i)lst)))

aeo000000

llsheng_73 发表于 2022-8-15 20:36
使用内部函数nthcdr和revappend能达到极速

应该不比49楼 NETBee 的快吧，比过吗？ 我感觉那个是最快的。

guosheyang

aeo000000 发表于 2022-10-6 13:57
应该不比49楼 NETBee 的快吧，比过吗？ 我感觉那个是最快的。

初步测试   用内部函数的确更快

gbhsu

沙发先坐了！

cabinsummer

为老曹的发帖提供2000个元素的表
(14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280 34825 34211 70679 82148 08651 32823 06647 09384 46095 50582 23172 53594 08128 48111 74502 84102 70193 85211 05559 64462 29489 54930 38196 44288 10975 66593 34461 28475 64823 37867 83165 27120 19091 45648 56692 34603 48610 45432 66482 13393 60726 02491 41273 72458 70066 06315 58817 48815 20920 96282 92540 91715 36436 78925 90360 01133 05305 48820 46652 13841 46951 94151 16094 33057 27036 57595 91953 09218 61173 81932 61179 31051 18548 07446 23799 62749 56735 18857 52724 89122 79381 83011 94912 98336 73362 44065 66430 86021 39494 63952 24737 19070 21798 60943 70277 05392 17176 29317 67523 84674 81846 76694 05132 00056 81271 45263 56082 77857 71342 75778 96091 73637 17872 14684 40901 22495 34301 46549 58537 10507 92279 68925 89235 42019 95611 21290 21960 86403 44181 59813 62977 47713 09960 51870 72113 49999 99837 29780 49951 05973 17328 16096 31859 50244 59455 34690 83026 42522 30825 33446 85035 26193 11881 71010 00313 78387 52886 58753 32083 81420 61717 76691 47303 59825 34904 28755 46873 11595 62863 88235 37875 93751 95778 18577 80532 17122 68066 13001 92787 66111 95909 21642 01989 38095 25720 10654 85863 27886 59361 53381 82796 82303 01952 03530 18529 68995 77362 25994 13891 24972 17752 83479 13151 55748 57242 45415 06959 50829 53311 68617 27855 88907 50983 81754 63746 49393 19255 06040 09277 01671 13900 98488 24012 85836 16035 63707 66010 47101 81942 95559 61989 46767 83744 94482 55379 77472 68471 04047 53464 62080 46684 25906 94912 93313 67702 89891 52104 75216 20569 66024 05803 81501 93511 25338 24300 35587 64024 74964 73263 91419 92726 04269 92279 67823 54781 63600 93417 21641 21992 45863 15030 28618 29745 55706 74983 85054 94588 58692 69956 90927 21079 75093 02955 32116 53449 87202 75596 02364 80665 49911 98818 34797 75356 63698 07426 54252 78625 51818 41757 46728 90977 77279 38000 81647 06001 61452 49192 17321 72147 72350 14144 19735 68548 16136 11573 52552 13347 57418 49468 43852 33239 07394 14333 45477 62416 86251 89835 69485 56209 92192 22184 27255 02542 56887 67179 04946 01653 46680 49886 27232 79178 60857 84383 82796 79766 81454 10095 38837 86360 95068 00642 25125 20511 73929 84896 08412 84886 26945 60424 19652 85022 21066 11863 06744 27862 20391 94945 04712 37137 86960 95636 43719 17287 46776 46575 73962 41389 08658 32645 99581 33904 78027 59009 94657 64078 95126 94683 98352 59570 98258 22620 52248 94077 26719 47826 84826 01476 99090 26401 36394 43745 53050 68203 49625 24517 49399 65143 14298 09190 65925 09372 21696 46151 57098 58387 41059 78859 59772 97549 89301 61753 92846 81382 68683 86894 27741 55991 85592 52459 53959 43104 99725 24680 84598 72736 44695 84865 38367 36222 62609 91246 08051 24388 43904 51244 13654 97627 80797 71569 14359 97700 12961 60894 41694 86855 58484 06353 42207 22258 28488 64815 84560 28506 01684 27394 52267 46767 88952 52138 52254 99546 66727 82398 64565 96116 35488 62305 77456 49803 55936 34568 17432 41125 15076 06947 94510 96596 09402 52288 79710 89314 56691 36867 22874 89405 60101 50330 86179 28680 92087 47609 17824 93858 90097 14909 67598 52613 65549 78189 31297 84821 68299 89487 22658 80485 75640 14270 47755 51323 79641 45152 37462 34364 54285 84447 95265 86782 10511 41354 73573 95231 13427 16610 21359 69536 23144 29524 84937 18711 01457 65403 59027 99344 03742 00731 05785 39062 19838 74478 08478 48968 33214 45713 86875 19435 06430 21845 31910 48481 00537 06146 80674 91927 81911 97939 95206 14196 63428 75444 06437 45123 71819 21799 98391 01591 95618 14675 14269 12397 48940 90718 64942 31961 56794 52080 95146 55022 52316 03881 93014 20937 62137 85595 66389 37787 08303 90697 92077 34672 21825 62599 66150 14215 03068 03844 77345 49202 60541 46659 25201 49744 28507 32518 66600 21324 34088 19071 04863 31734 64965 14539 05796 26856 10055 08106 65879 69981 63574 73638 40525 71459 10289 70641 40110 97120 62804 39039 75951 56771 57700 42033 78699 36007 23055 87631 76359 42187 31251 47120 53292 81918 26186 12586 73215 79198 41484 88291 64470 60957 52706 95722 09175 67116 72291 09816 90915 28017 35067 12748 58322 28718 35209 35396 57251 21083 57915 13698 82091 44421 00675 10334 67110 31412 67111 36990 86585 16398 31501 97016 51511 68517 14376 57618 35155 65088 49099 89859 98238 73455 28331 63550 76479 18535 89322 61854 89632 13293 30898 57064 20467 52590 70915 48141 65498 59461 63718 02709 81994 30992 44889 57571 28289 05923 23326 09729 97120 84433 57326 54893 82391 19325 97463 66730 58360 41428 13883 03203 82490 37589 85243 74417 02913 27656 18093 77344 40307 07469 21120 19130 20330 38019 76211 01100 44929 32151 60842 44485 96376 69838 95228 68478 31235 52658 21314 49576 85726 24334 41893 03968 64262 43410 77322 69780 28073 18915 44110 10446 82325 27162 01052 65227 21116 60396 66557 30925 47110 55785 37634 66820 65310 98965 26918 62056 47693 12570 58635 66201 85581 00729 36065 98764 86117 91045 33488 50346 11365 76867 53249 44166 80396 26579 78771 85560 84552 96541 26654 08530 61434 44318 58676 97514 56614 06800 70023 78776 59134 40171 27494 70420 56223 05389 94561 31407 11270 00407 85473 32699 39081 45466 46458 80797 27082 66830 63432 85878 56983 05235 80893 30657 57406 79545 71637 75254 20211 49557 61581 40025 01262 28594 13021 64715 50979 25923 09907 96547 37612 55176 56751 35751 78296 66454 77917 45011 29961 48903 04639 94713 29621 07340 43751 89573 59614 58901 93897 13111 79042 97828 56475 03203 19869 15140 28708 08599 04801 09412 14722 13179 47647 77262 24142 54854 54033 21571 85306 14228 81375 85043 06332 17518 29798 66223 71721 59160 77166 92547 48738 98665 49494 50114 65406 28433 66393 79003 97692 65672 14638 53067 36096 57120 91807 63832 71664 16274 88880 07869 25602 90228 47210 40317 21186 08204 19000 42296 61711 96377 92133 75751 14959 50156 60496 31862 94726 54736 42523 08177 03675 15906 73502 35072 83540 56704 03867 43513 62222 47715 89150 49530 98444 89333 09634 08780 76932 59939 78054 19341 44737 74418 42631 29860 80998 88687 41326 04721 56951 62396 58645 73021 63159 81931 95167 35381 29741 67729 47867 24229 24654 36680 09806 76928 23828 06899 64004 82435 40370 14163 14965 89794 09243 23789 69070 69779 42236 25082 21688 95738 37986 23001 59377 64716 51228 93578 60158 81617 55782 97352 33446 04281 51262 72037 34314 65319 77774 16031 99066 55418 76397 92933 44195 21541 34189 94854 44734 56738 31624 99341 91318 14809 27777 10386 38773 43177 20754 56545 32207 77092 12019 05166 09628 04909 26360 19759 88281 61332 31666 36528 61932 66863 36062 73567 63035 44776 28035 04507 77235 54710 58595 48702 79081 43562 40145 17180 62464 36267 94561 27531 81340 78330 33625 42327 83944 97538 24372 05835 31147 71199 26063 81334 67768 79695 97030 98339 13077 10987 04085 91337 46414 42822 77263 46594 70474 58784 77872 01927 71528 07317 67907 70715 72134 44730 60570 07334 92436 93113 83504 93163 12840 42512 19256 51798 06941 13528 01314 70130 47816 43788 51852 90928 54520 11658 39341 96562 13491 43415 95625 86586 55705 52690 49652 09858 03385 07224 26482 93972 85847 83163 05777 75606 88876 44624 82468 57926 03953 52773 48030 48029 00587 60758 25104 74709 16439 61362 67604 49256 27420 42083 20856 61190 62545 43372 13153 59584 50687 72460 29016 18766 79524 06163 42522 57719 54291 62991 93064 55377 99140 37340 43287 52628 88963 99587 94757 29174 64263 57455 25407 90914 51357 11136 94109 11939 32519 10760 20825 20261 87985 31887 70584 29725 91677 81314 96990 09019 21169 71737 27847 68472 68608 49003 37702 42429 16513 00500 51683 23364 35038 95170 29893 92233 45172 20138 12806 96501 17844 08745 19601 21228 59937 16231 30171 14448 46409 03890 64495 44400 61986 90754 85160 26327 50529 83491 87407 86680 88183 38510 22833 45085 04860 82503 93021 33219 71551 84306 35455 00766 82829 49304 13776 55279 39751 75461 39539 84683 39363 83047 46119 96653 85815 38420 56853 38621 86725 23340 28308 71123 28278 92125 07712 62946 32295 63989 89893 58211 67456 27010 21835 64622 01349 67151 88190 97303 81198 00497 34072 39610 36854 06643 19395 09790 19069 96395 52453 00545 05806 85501 95673 02292 19139 33918 56803 44903 98205 95510 02263 53536 19204 19947 45538 59381 02343 95544 95977 83779 02374 21617 27111 72364 34354 39478 22181 85286 24085 14006 66044 33258 88569 86705 43154 70696 57474 58550 33232 33421 07301 54594 05165 53790 68662 73337 99585 11562 57843 22988 27372 31989 87571 41595 78111 96358 33005 94087 30681 21602 87649 62867 44604 77464 91599 50549 73742 56269 01049 03778 19868 35938 14657 41268 04925 64879 85561 45372 34786 73303 90468 83834 36346 55379 49864 19270 56387 29317 48723 32083 76011 23029 91136 79386 27089 43879 93620 16295 15413 37142 48928 30722 01269 01475 46684 76535 76164 77379 46752 00490 75715 55278 19653 62132 39264 06160 13635 81559 07422 02020 31872 77605 27721 90055 61484 25551 87925 30343 51398 44253 22341 57623 36106 42506 39049 75008 65627 10953 59194 65897 51413 10348 22769 30624 74353 63256 91607 81547 81811 52843 66795 70611 08615 33150 44521 27473 92454 49454 23682 88606 13408 41486 37767 00961 20715 12491 40430 27253 86076 48236 34143 34623 51897 57664 52164 13767 96903 14950 19108 57598 44239 19862 91642 19399 49072 36234 64684 41173 94032 65918 40443 78051 33389 45257 42399 50829 65912 28508 55582 15725 03107 12570 12668 30240 29295 25220 11872 67675 62204 15420 51618 41634 84756 51699 98116 14101 00299 60783 86909 29160 30288 40026 91041 40792 88621 50784 24516 70908 70006 99282 12066 04183 71806 53556 72525 32567 53286 12910 42487 76182 58297 65157 95984 70356 22262 93486 00341 58722 98053 49896 50226 29174 87882 02734 20922 22453 39856 26476 69149 05562 84250 39127 57710 28402 79980 66365 82548 89264 88025 45661 01729 67026 64076 55904 29099 45681 50652 65305 37182 94127 03369 31378 51786 09040 70866 71149 65583 43434 76933 85781 71138 64558 73678 12301 45876 87126 60348 91390 95620 09939 36103 10291 61615 28813 84379 09904)
-------------------------------------------------------------------------------------------------------
长度30的表

("Bonasera" "sat" "the" "New" "York" "Criminal" "Court" "Number" "3" "and" "waited" "for" "justice;" "vengeance" "on" "the" "men" "who" "had" "so" "cruelly" "hurt" "his" "daughter," "who" "had" "the" "to" "dishonor" "her.")

飞诗(fsxm)

;;先来个生成测试用的表函数
(defun maklst (n / lst)
  (repeat n
    (setq lst (cons (setq n (1- n)) lst))
  )
)

duotu007

用别人写的做个实验，0.25秒。
(defun removenth (n lst / len foo i )
    (defun foo (x)
        (if (eq n (setq i (1+ i)))
            (defun foo (x) nil)
        )   
    )
    (cond
        (   (zerop n) (cdr lst))
        (   (eq n (1- (setq len (length lst))))
            (reverse (cdr (reverse lst)))
        )
        (   (< (setq i -1) n len)
            (vl-remove-if 'foo lst)
        )
        (   lst  )
    )
)
(setq aa '(14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280 34825 34211 70679 82148 08651 32823 06647 09384 46095 50582 23172 53594 08128 48111 74502 84102 70193 85211 05559 64462 29489 54930 38196 44288 10975 66593 34461 28475 64823 37867 83165 27120 19091 45648 56692 34603 48610 45432 66482 13393 60726 02491 41273 72458 70066 06315 58817 48815 20920 96282 92540 91715 36436 78925 90360 01133 05305 48820 46652 13841 46951 94151 16094 33057 27036 57595 91953 09218 61173 81932 61179 31051 18548 07446 23799 62749 56735 18857 52724 89122 79381 83011 94912 98336 73362 44065 66430 86021 39494 63952 24737 19070 21798 60943 70277 05392 17176 29317 67523 84674 81846 76694 05132 00056 81271 45263 56082 77857 71342 75778 96091 73637 17872 14684 40901 22495 34301 46549 58537 10507 92279 68925 89235 42019 95611 21290 21960 86403 44181 59813 62977 47713 09960 51870 72113 49999 99837 29780 49951 05973 17328 16096 31859 50244 59455 34690 83026 42522 30825 33446 85035 26193 11881 71010 00313 78387 52886 58753 32083 81420 61717 76691 47303 59825 34904 28755 46873 11595 62863 88235 37875 93751 95778 18577 80532 17122 68066 13001 92787 66111 95909 21642 01989 38095 25720 10654 85863 27886 59361 53381 82796 82303 01952 03530 18529 68995 77362 25994 13891 24972 17752 83479 13151 55748 57242 45415 06959 50829 53311 68617 27855 88907 50983 81754 63746 49393 19255 06040 09277 01671 13900 98488 24012 85836 16035 63707 66010 47101 81942 95559 61989 46767 83744 94482 55379 77472 68471 04047 53464 62080 46684 25906 94912 93313 67702 89891 52104 75216 20569 66024 05803 81501 93511 25338 24300 35587 64024 74964 73263 91419 92726 04269 92279 67823 54781 63600 93417 21641 21992 45863 15030 28618 29745 55706 74983 85054 94588 58692 69956 90927 21079 75093 02955 32116 53449 87202 75596 02364 80665 49911 98818 34797 75356 63698 07426 54252 78625 51818 41757 46728 90977 77279 38000 81647 06001 61452 49192 17321 72147 72350 14144 19735 68548 16136 11573 52552 13347 57418 49468 43852 33239 07394 14333 45477 62416 86251 89835 69485 56209 92192 22184 27255 02542 56887 67179 04946 01653 46680 49886 27232 79178 60857 84383 82796 79766 81454 10095 38837 86360 95068 00642 25125 20511 73929 84896 08412 84886 26945 60424 19652 85022 21066 11863 06744 27862 20391 94945 04712 37137 86960 95636 43719 17287 46776 46575 73962 41389 08658 32645 99581 33904 78027 59009 94657 64078 95126 94683 98352 59570 98258 22620 52248 94077 26719 47826 84826 01476 99090 26401 36394 43745 53050 68203 49625 24517 49399 65143 14298 09190 65925 09372 21696 46151 57098 58387 41059 78859 59772 97549 89301 61753 92846 81382 68683 86894 27741 55991 85592 52459 53959 43104 99725 24680 84598 72736 44695 84865 38367 36222 62609 91246 08051 24388 43904 51244 13654 97627 80797 71569 14359 97700 12961 60894 41694 86855 58484 06353 42207 22258 28488 64815 84560 28506 01684 27394 52267 46767 88952 52138 52254 99546 66727 82398 64565 96116 35488 62305 77456 49803 55936 34568 17432 41125 15076 06947 94510 96596 09402 52288 79710 89314 56691 36867 22874 89405 60101 50330 86179 28680 92087 47609 17824 93858 90097 14909 67598 52613 65549 78189 31297 84821 68299 89487 22658 80485 75640 14270 47755 51323 79641 45152 37462 34364 54285 84447 95265 86782 10511 41354 73573 95231 13427 16610 21359 69536 23144 29524 84937 18711 01457 65403 59027 99344 03742 00731 05785 39062 19838 74478 08478 48968 33214 45713 86875 19435 06430 21845 31910 48481 00537 06146 80674 91927 81911 97939 95206 14196 63428 75444 06437 45123 71819 21799 98391 01591 95618 14675 14269 12397 48940 90718 64942 31961 56794 52080 95146 55022 52316 03881 93014 20937 62137 85595 66389 37787 08303 90697 92077 34672 21825 62599 66150 14215 03068 03844 77345 49202 60541 46659 25201 49744 28507 32518 66600 21324 34088 19071 04863 31734 64965 14539 05796 26856 10055 08106 65879 69981 63574 73638 40525 71459 10289 70641 40110 97120 62804 39039 75951 56771 57700 42033 78699 36007 23055 87631 76359 42187 31251 47120 53292 81918 26186 12586 73215 79198 41484 88291 64470 60957 52706 95722 09175 67116 72291 09816 90915 28017 35067 12748 58322 28718 35209 35396 57251 21083 57915 13698 82091 44421 00675 10334 67110 31412 67111 36990 86585 16398 31501 97016 51511 68517 14376 57618 35155 65088 49099 89859 98238 73455 28331 63550 76479 18535 89322 61854 89632 13293 30898 57064 20467 52590 70915 48141 65498 59461 63718 02709 81994 30992 44889 57571 28289 05923 23326 09729 97120 84433 57326 54893 82391 19325 97463 66730 58360 41428 13883 03203 82490 37589 85243 74417 02913 27656 18093 77344 40307 07469 21120 19130 20330 38019 76211 01100 44929 32151 60842 44485 96376 69838 95228 68478 31235 52658 21314 49576 85726 24334 41893 03968 64262 43410 77322 69780 28073 18915 44110 10446 82325 27162 01052 65227 21116 60396 66557 30925 47110 55785 37634 66820 65310 98965 26918 62056 47693 12570 58635 66201 85581 00729 36065 98764 86117 91045 33488 50346 11365 76867 53249 44166 80396 26579 78771 85560 84552 96541 26654 08530 61434 44318 58676 97514 56614 06800 70023 78776 59134 40171 27494 70420 56223 05389 94561 31407 11270 00407 85473 32699 39081 45466 46458 80797 27082 66830 63432 85878 56983 05235 80893 30657 57406 79545 71637 75254 20211 49557 61581 40025 01262 28594 13021 64715 50979 25923 09907 96547 37612 55176 56751 35751 78296 66454 77917 45011 29961 48903 04639 94713 29621 07340 43751 89573 59614 58901 93897 13111 79042 97828 56475 03203 19869 15140 28708 08599 04801 09412 14722 13179 47647 77262 24142 54854 54033 21571 85306 14228 81375 85043 06332 17518 29798 66223 71721 59160 77166 92547 48738 98665 49494 50114 65406 28433 66393 79003 97692 65672 14638 53067 36096 57120 91807 63832 71664 16274 88880 07869 25602 90228 47210 40317 21186 08204 19000 42296 61711 96377 92133 75751 14959 50156 60496 31862 94726 54736 42523 08177 03675 15906 73502 35072 83540 56704 03867 43513 62222 47715 89150 49530 98444 89333 09634 08780 76932 59939 78054 19341 44737 74418 42631 29860 80998 88687 41326 04721 56951 62396 58645 73021 63159 81931 95167 35381 29741 67729 47867 24229 24654 36680 09806 76928 23828 06899 64004 82435 40370 14163 14965 89794 09243 23789 69070 69779 42236 25082 21688 95738 37986 23001 59377 64716 51228 93578 60158 81617 55782 97352 33446 04281 51262 72037 34314 65319 77774 16031 99066 55418 76397 92933 44195 21541 34189 94854 44734 56738 31624 99341 91318 14809 27777 10386 38773 43177 20754 56545 32207 77092 12019 05166 09628 04909 26360 19759 88281 61332 31666 36528 61932 66863 36062 73567 63035 44776 28035 04507 77235 54710 58595 48702 79081 43562 40145 17180 62464 36267 94561 27531 81340 78330 33625 42327 83944 97538 24372 05835 31147 71199 26063 81334 67768 79695 97030 98339 13077 10987 04085 91337 46414 42822 77263 46594 70474 58784 77872 01927 71528 07317 67907 70715 72134 44730 60570 07334 92436 93113 83504 93163 12840 42512 19256 51798 06941 13528 01314 70130 47816 43788 51852 90928 54520 11658 39341 96562 13491 43415 95625 86586 55705 52690 49652 09858 03385 07224 26482 93972 85847 83163 05777 75606 88876 44624 82468 57926 03953 52773 48030 48029 00587 60758 25104 74709 16439 61362 67604 49256 27420 42083 20856 61190 62545 43372 13153 59584 50687 72460 29016 18766 79524 06163 42522 57719 54291 62991 93064 55377 99140 37340 43287 52628 88963 99587 94757 29174 64263 57455 25407 90914 51357 11136 94109 11939 32519 10760 20825 20261 87985 31887 70584 29725 91677 81314 96990 09019 21169 71737 27847 68472 68608 49003 37702 42429 16513 00500 51683 23364 35038 95170 29893 92233 45172 20138 12806 96501 17844 08745 19601 21228 59937 16231 30171 14448 46409 03890 64495 44400 61986 90754 85160 26327 50529 83491 87407 86680 88183 38510 22833 45085 04860 82503 93021 33219 71551 84306 35455 00766 82829 49304 13776 55279 39751 75461 39539 84683 39363 83047 46119 96653 85815 38420 56853 38621 86725 23340 28308 71123 28278 92125 07712 62946 32295 63989 89893 58211 67456 27010 21835 64622 01349 67151 88190 97303 81198 00497 34072 39610 36854 06643 19395 09790 19069 96395 52453 00545 05806 85501 95673 02292 19139 33918 56803 44903 98205 95510 02263 53536 19204 19947 45538 59381 02343 95544 95977 83779 02374 21617 27111 72364 34354 39478 22181 85286 24085 14006 66044 33258 88569 86705 43154 70696 57474 58550 33232 33421 07301 54594 05165 53790 68662 73337 99585 11562 57843 22988 27372 31989 87571 41595 78111 96358 33005 94087 30681 21602 87649 62867 44604 77464 91599 50549 73742 56269 01049 03778 19868 35938 14657 41268 04925 64879 85561 45372 34786 73303 90468 83834 36346 55379 49864 19270 56387 29317 48723 32083 76011 23029 91136 79386 27089 43879 93620 16295 15413 37142 48928 30722 01269 01475 46684 76535 76164 77379 46752 00490 75715 55278 19653 62132 39264 06160 13635 81559 07422 02020 31872 77605 27721 90055 61484 25551 87925 30343 51398 44253 22341 57623 36106 42506 39049 75008 65627 10953 59194 65897 51413 10348 22769 30624 74353 63256 91607 81547 81811 52843 66795 70611 08615 33150 44521 27473 92454 49454 23682 88606 13408 41486 37767 00961 20715 12491 40430 27253 86076 48236 34143 34623 51897 57664 52164 13767 96903 14950 19108 57598 44239 19862 91642 19399 49072 36234 64684 41173 94032 65918 40443 78051 33389 45257 42399 50829 65912 28508 55582 15725 03107 12570 12668 30240 29295 25220 11872 67675 62204 15420 51618 41634 84756 51699 98116 14101 00299 60783 86909 29160 30288 40026 91041 40792 88621 50784 24516 70908 70006 99282 12066 04183 71806 53556 72525 32567 53286 12910 42487 76182 58297 65157 95984 70356 22262 93486 00341 58722 98053 49896 50226 29174 87882 02734 20922 22453 39856 26476 69149 05562 84250 39127 57710 28402 79980 66365 82548 89264 88025 45661 01729 67026 64076 55904 29099 45681 50652 65305 37182 94127 03369 31378 51786 09040 70866 71149 65583 43434 76933 85781 71138 64558 73678 12301 45876 87126 60348 91390 95620 09939 36103 10291 61615 28813 84379 09904)
)
(setq bb '("Bonasera" "sat" "the" "New" "York" "Criminal" "Court" "Number" "3" "and" "waited" "for" "justice;" "vengeance" "on" "the" "men" "who" "had" "so" "cruelly" "hurt" "his" "daughter," "who" "had" "the" "to" "dishonor" "her.")
)
(defun c:tt ()
  (setq time1 (* (getvar "CDATE") 100000000))
  (setq a1 (removenth 300 aa))
  (setq time2 (* (getvar "CDATE") 100000000))
  (setq a2 (removenth 1900 aa))
  (setq time3 (* (getvar "CDATE") 100000000))
  (setq b1 (removenth 16 bb))
  (setq time4 (* (getvar "CDATE") 100000000))
  (setq b2 (removenth 6 bb))
  (setq time5 (* (getvar "CDATE") 100000000))
  (setq time (+ (- time2 time1) (- time3 time2) (* (- time4 time3) 65) (* (- time5 time4) 65)))
)

Gu_xl

这个题目出得好！我来抛砖引玉，先发几个算法测试：

1. (defun gxl-removeNth (index lst / c)
   
2.   (setq c -1)
   
3.   (apply 'append
   
4.   (mapcar '(lambda (x)
   
5.       (if (/= (setq c (1+ c)) index)
   
6.         (list x)
   
7.       )
   
8.     )
   
9.    lst
   
10.   )
    
11.   )
    
12. )
    
13. (defun gxl-removeNth1 (index lst / c rtn)
    
14.   (setq c -1)
    
15.   (mapcar '(lambda (x)
    
16.       (if (/= (setq c (1+ c)) index)
    
17.         (setq rtn (cons x rtn))
    
18.       )
    
19.     )
    
20.    lst
    
21.   )
    
22.   (reverse rtn)
    
23. )
    
24. (defun gxl-removeNth2 (index lst / c rtn lst1)
    
25.   (if (>= index  (length lst)) ;_ index 越界
    
26.     lst
    
27.   (if (< index (/ (length lst) 2)) ;_ index位于前半截
    
28.     (progn
    
29.   (setq c -1 lst1 lst)
    
30.   (vl-some '(lambda (x) (if (equal index (setq c (1+ c))) t (progn (setq rtn (cons x rtn) lst1 (cdr lst1)) nil))) lst)
    
31.   (append (reverse rtn) (cdr lst1))
    
32.   )
    
33.     (progn ;_ index位于后半截
    
34.       (setq index (- (length lst) index 1) lst (reverse lst))
    
35.         (setq c -1 lst1 lst)
    
36.   (vl-some '(lambda (x) (if (equal index (setq c (1+ c))) t (progn (setq rtn (cons x rtn) lst1 (cdr lst1)) nil))) lst)
    
37.   (reverse (append (reverse rtn) (cdr lst1)))
    
38.       )
    
39.     )
    
40.     )
    
41. )
    
42. 测试函数：
    
43. (defun c:tt()
    
44.   (GXL-TIMEINIT)
    
45.   (repeat 1000 (GXL-REMOVENTH 1500 ll ))
    
46.   (GXL-TIMEOUT)
    
47.     (GXL-TIMEINIT)
    
48.   (repeat 1000 (GXL-REMOVENTH1  1500 ll ))
    
49.   (GXL-TIMEOUT)
    
50.     (GXL-TIMEINIT)
    
51.   (repeat 1000 (GXL-REMOVENTH2  1500 ll ))
    
52.   (GXL-TIMEOUT)
    
53.   )
    
54. ll为三楼提供的长表
    
55. 测试结果：
    
56. 方法1 ：用时  1.53125  秒
    
57. 方法2 ：  用时  1.53906  秒
    
58. 方法3 ：  用时  0.519531  秒
    
59. ;总结：方法1、方法2用时基本差不多！方法3最快，当index位于长表两头时方法3最快！当index位于中间时，三种情况速度应该差不多！
    
60. ;按题目要求测试结果（循环计算100次）：
    
61. (defun c:tt(/ aa bb)
    
62. (setq aa (repeat 2000 (setq aa (cons 10 aa))))
    
63. (setq bb (repeat 30 (setq bb (cons 10 bb))))
    
64.   (GXL-TIMEINIT)
    
65.   (repeat 100
    
66.   (GXL-REMOVENTH 1900 aa )
    
67.   (GXL-REMOVENTH 300 aa )
    
68.   (GXL-REMOVENTH 16 bb )
    
69.   (GXL-REMOVENTH 6 bb )
    
70.     )
    
71.   (GXL-TIMEOUT)
    
72.   (repeat 100
    
73.   (GXL-REMOVENTH1 1900 aa )
    
74.   (GXL-REMOVENTH1 300 aa )
    
75.   (GXL-REMOVENTH1 16 bb )
    
76.   (GXL-REMOVENTH1 6 bb )
    
77.     )
    
78.   (GXL-TIMEOUT)
    
79.     (GXL-TIMEINIT)
    
80.   (repeat 100
    
81.   (GXL-REMOVENTH2 1900 aa )
    
82.   (GXL-REMOVENTH2 300 aa )
    
83.   (GXL-REMOVENTH2 16 bb )
    
84.   (GXL-REMOVENTH2 6 bb )
    
85.   )
    
86.   (GXL-TIMEOUT)
    
87.   )
    
88. 方法1 ：用时  0.417969  秒
    
89. 方法2 ：  用时  0.804688  秒
    
90. 方法3 ：  用时  0.132813  秒
    
91. ;总结：还是方法3快，方法2慢，！
    

(defun gxl-removeNth (index lst / c)<br />   (setq c -1)<br />   (apply 'append<br />   (mapcar '(lambda (x)<br />       (if (/= (setq c (1+ c)) index)<br />         (list x)<br />       )<br />     )<br />    lst<br />   )<br />   )<br /> )<br /> (defun gxl-removeNth1 (index lst / c rtn)<br />   (setq c -1)<br />   (mapcar '(lambda (x)<br />       (if (/= (setq c (1+ c)) index)<br />         (setq rtn (cons x rtn))<br />       )<br />     )<br />    lst<br />   )<br />   (reverse rtn)<br /> )<br /> (defun gxl-removeNth2 (index lst / c rtn lst1)<br />   (if (>= index  (length lst)) ;_ index 越界<br />     lst<br />   (if (< index (/ (length lst) 2)) ;_ index位于前半截<br />     (progn<br />   (setq c -1 lst1 lst)<br />   (vl-some '(lambda (x) (if (equal index (setq c (1+ c))) t (progn (setq rtn (cons x rtn) lst1 (cdr lst1)) nil))) lst)<br />   (append (reverse rtn) (cdr lst1))<br />   )<br />     (progn ;_ index位于后半截<br />       (setq index (- (length lst) index 1) lst (reverse lst))<br />         (setq c -1 lst1 lst)<br />   (vl-some '(lambda (x) (if (equal index (setq c (1+ c))) t (progn (setq rtn (cons x rtn) lst1 (cdr lst1)) nil))) lst)<br />   (reverse (append (reverse rtn) (cdr lst1)))<br />       )<br />     )<br />     )<br /> )<br /> 测试函数：<br /> (defun c:tt()<br />   (GXL-TIMEINIT)<br />   (repeat 1000 (GXL-REMOVENTH 1500 ll ))<br />   (GXL-TIMEOUT)<br />     (GXL-TIMEINIT)<br />   (repeat 1000 (GXL-REMOVENTH1  1500 ll ))<br />   (GXL-TIMEOUT)<br />     (GXL-TIMEINIT)<br />   (repeat 1000 (GXL-REMOVENTH2  1500 ll ))<br />   (GXL-TIMEOUT)<br />   )<br /> ll为三楼提供的长表<br /> 测试结果：<br /> 方法1 ：用时  1.53125  秒 <br /> 方法2 ：  用时  1.53906  秒 <br /> 方法3 ：  用时  0.519531  秒 <br /> ;总结：方法1、方法2用时基本差不多！方法3最快，当index位于长表两头时方法3最快！当index位于中间时，三种情况速度应该差不多！<br /> ;按题目要求测试结果（循环计算100次）：<br /> (defun c:tt(/ aa bb)<br /> (setq aa (repeat 2000 (setq aa (cons 10 aa))))<br /> (setq bb (repeat 30 (setq bb (cons 10 bb))))<br />   (GXL-TIMEINIT)<br />   (repeat 100<br />   (GXL-REMOVENTH 1900 aa )<br />   (GXL-REMOVENTH 300 aa )<br />   (GXL-REMOVENTH 16 bb )<br />   (GXL-REMOVENTH 6 bb )<br />     )<br />   (GXL-TIMEOUT)<br />   (repeat 100<br />   (GXL-REMOVENTH1 1900 aa )<br />   (GXL-REMOVENTH1 300 aa )<br />   (GXL-REMOVENTH1 16 bb )<br />   (GXL-REMOVENTH1 6 bb )<br />     )<br />   (GXL-TIMEOUT)<br />     (GXL-TIMEINIT)<br />   (repeat 100<br />   (GXL-REMOVENTH2 1900 aa )<br />   (GXL-REMOVENTH2 300 aa )<br />   (GXL-REMOVENTH2 16 bb )<br />   (GXL-REMOVENTH2 6 bb )<br />   )<br />   (GXL-TIMEOUT)<br />   )<br /> 方法1 ：用时  0.417969  秒 <br /> 方法2 ：  用时  0.804688  秒 <br /> 方法3 ：  用时  0.132813  秒 <br /> ;总结：还是方法3快，方法2慢，！<br />

xshrimp

我写了一个member的方法.速度应该比较快.
最终楼主统一测试一下。看看谁的速度最快.

2. 
   
3. (defun foo (n lst len / mlen v)
   
4.   (setq mlen (- len n) v (nth n lst))   
   
5.   (while(/= mlen(vl-list-length(setq lst(member v lst))))(setq lst(cdr lst)))
   
6.   lst
   
7. )
   
8. (defun removenth (n lst / len)            
   
9.   (setq len (vl-list-length lst))
   
10.   (if(<= 0 n len)(append(reverse(foo(- len n)(reverse lst)len))(cdr(foo n lst len)))lst)
    
11. )
    

<br /> (defun foo (n lst len / mlen v)<br />   (setq mlen (- len n) v (nth n lst))   <br />   (while(/= mlen(vl-list-length(setq lst(member v lst))))(setq lst(cdr lst)))<br />   lst<br /> )<br /> (defun removenth (n lst / len)            <br />   (setq len (vl-list-length lst)) <br />   (if(<= 0 n len)(append(reverse(foo(- len n)(reverse lst)len))(cdr(foo n lst len)))lst)<br /> )<br />

yjr111

写了一个，也不知道对不对，请各位大师指正！ 开始和G版弄的函数名一样，结果错了还不知道，呵呵！现在已经在0.3S左右了 挑灯夜战，test2更快，按题意测试速度0.125S，也不受元素影响

2. (defun test2(n lst / )
   
3.   (setq i 0)
   
4.   (setq lst_1(vl-remove nil(mapcar (function(lambda(x)
   
5.              (if (and (equal x (nth n lst))(= i n)) nil
   
6.           (progn (setq i (1+ i)) x ))))lst)))
   
7.   )

(defun test2(n lst / )<br />   (setq i 0)<br />   (setq lst_1(vl-remove nil(mapcar (function(lambda(x)<br />              (if (and (equal x (nth n lst))(= i n)) nil<br />           (progn (setq i (1+ i)) x ))))lst)))<br />   )

2. 
   
3. (defun test1(lst n /)
   
4.   (setq m 0 lst_1 '() i 0)
   
5.   (repeat (length lst)
   
6.     (if (/= m n)
   
7.       (setq lst_1(cons (nth i lst)lst_1 ))
   
8.       )
   
9.       (setq m (1+ m)
   
10.              i (1+ i))     
    
11.       )
    
12.     (setq lst_1 (reverse lst_1))
    
13.     )
    
14. 
    

<br /> (defun test1(lst n /)<br />   (setq m 0 lst_1 '() i 0)<br />   (repeat (length lst)<br />     (if (/= m n)<br />       (setq lst_1(cons (nth i lst)lst_1 ))<br />       )<br />       (setq m (1+ m)<br />              i (1+ i))     <br />       )<br />     (setq lst_1 (reverse lst_1))<br />     )<br /> <br />

飞诗(fsxm)

1. (defun fsxm-RemoveN (lst n / i slst tmp)
   
2.   (setq i 0)
   
3.   (setq        slst (vl-member-if-not
   
4.                (function (lambda (a)
   
5.                            (if (/= i n)
   
6.                              (setq tmp (cons a tmp)
   
7.                                    i   (1+ i)
   
8.                              )
   
9.                            )
   
10.                          )
    
11.                )
    
12.                lst
    
13.              )
    
14.   )
    
15.   (append (reverse tmp) (cdr slst))
    
16. )
    

(defun fsxm-RemoveN (lst n / i slst tmp)<br />   (setq i 0)<br />   (setq        slst (vl-member-if-not<br />                (function (lambda (a)<br />                            (if (/= i n)<br />                              (setq tmp (cons a tmp)<br />                                    i   (1+ i)<br />                              )<br />                            )<br />                          )<br />                )<br />                lst<br />              )<br />   )<br />   (append (reverse tmp) (cdr slst))<br /> )<br />

cabinsummer

最慢的方法

1. (defun RemoveItem(lst n / c a)
   
2.   (setq c 0)
   
3.   (foreach x lst
   
4.     (if (/= c n)
   
5.       (setq a (append a (list x)) c (1+ c))
   
6.     )
   
7.   )
   
8.   a
   
9. )

(defun RemoveItem(lst n / c a)<br />   (setq c 0)<br />   (foreach x lst<br />     (if (/= c n)<br />       (setq a (append a (list x)) c (1+ c))<br />     )<br />   )<br />   a<br /> )