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

328302216

cabinsummer 发表于 2011-11-10 21:05
为老曹的发帖提供2000个元素的表
(14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 7 ...

不够两千个元素，只有1644个
来一个新手比较容易理解的！他们的太高深了看不懂！

(defun c:mj-yxbh()
  (setq mj-dwj4 '(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 mj-yxbh-2(getint"/n输入要删除的第N个元素"))
(setq t1 (getvar "CDATE"));;计时开始------
     (setq mj-n 0 mj-yxbh-5 '())
   (repeat mj-yxbh-2 ;;循环取得要删除的编号前面的编号
     (setq mj-yxbh-4(nth mj-n mj-dwj4))
     (setq mj-yxbh-5(cons mj-yxbh-4 mj-yxbh-5))
     (setq mj-n (+ mj-n 1))
   );;repeat
     ;;);;setq
     (setq mj-yxbh-6(length mj-dwj4))
     (setq mj-yxbh-9 '())
     (setq mj-n1 mj-yxbh-2)
     ;;(setq mj-yxbh-7
   (repeat (- mj-yxbh-6 mj-yxbh-2 1)
     (setq mj-yxbh-8(nth (+ mj-n1 1) mj-dwj4))
     (setq mj-yxbh-9(cons mj-yxbh-8 mj-yxbh-9))
     (setq mj-n1(+ mj-n1 1))
   );;repeat
     ;;);;setq
     (setq mj-dwj4(append (reverse mj-yxbh-5) (reverse mj-yxbh-9)))
  
  (setq t2 (getvar "CDATE"));;计时结束------
(princ "\n程序共用时=")
(princ (* (- t2 t1) 1e6))
(princ "秒")
)

sicky111

好贴，看到很多高手过招。

llsheng_73

1. (defun removen(n lst / i a f);;1<=n<=(length lst),否则如果n<1将删除第1个元素,n超过表长删除最后一个元素
   
2.   (if(>(+ n n)(setq i(length lst)))
   
3.     (setq lst(reverse lst)
   
4.           n(- i n)
   
5.           f t))
   
6.   (repeat n
   
7.     (setq a(cons(car lst)a)lst(cdr lst)))
   
8.   (if f(reverse(append a(cdr lst)))
   
9.     (append(reverse a)(cdr lst)))
   
10.   )

(defun removen(n lst / i a f);;1<=n<=(length lst),否则如果n<1将删除第1个元素,n超过表长删除最后一个元素<br />   (if(>(+ n n)(setq i(length lst)))<br />     (setq lst(reverse lst)<br />           n(- i n)<br />           f t))<br />   (repeat n<br />     (setq a(cons(car lst)a)lst(cdr lst)))<br />   (if f(reverse(append a(cdr lst)))<br />     (append(reverse a)(cdr lst)))<br />   )

这里也根据前辈高手们的弄一个

903242237

vectra

lisp的基本数据结构是链表，查到指定位置的元素只有遍历整个表，并且对表进行的任何操作都会生成新的表对象，效率肯定是很低下的。

要是有c里面的 memcopy 就好了 哈哈

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 的快吧，比过吗？ 我感觉那个是最快的。

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

gaics

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

nthcdr和revappend是什么函数？