刪除多余的出現(xiàn)次數(shù)

解答動態(tài)

• 

  AWK，9 bytes a[$1]++lt；value>；。數(shù)組是從STDIN讀取的。
  請聯(lián)機(jī)嘗試！
  
• 

  MATL，9 bytes tgt；~） a輸入，然后n。聯(lián)機(jī)試用！
  或驗證所有測試用例。對于每種情況，這都需要包含所需輸出的第三個輸入。頁腳代碼檢查程序輸出是否等于所需的輸出，并相應(yīng)地打印正確或不正確的結(jié)果。
  其工作方式 以輸入[1 2 3 2 3 2 4 1 2]和2為例。
  t%隱式輸入：數(shù)組A。重復(fù)%堆棧：[1 2 3 2 3 2 4 1 2]，[1 2 3 2 4 1 2] 0 0 1 0 1 0 0 0 0; 0 1 0 1 0 1 0 0 1; 0 0 1 0 1 0 0 0 0; 0 1 0 1 0 1 0 0 1; 0 0 0 0 0 01 0 0；1 0 0 0 0 0 1 0；0 1 0 1 0 1 0 0 1]R%上三角部分：將對角線下方的項設(shè)置為0%堆棧：[1 2 3 2 3 2 4 1 2]，[1 0 0 0 0 0 0 1 0；0 1 0 1 0 0 1；0 0 1 0 0 0 0；0 0 0 1 0 1 0 0 1；0 0 0 0 0 1 0 0 0 0 0；0 0 0 0 0 0 1 0 0 1；0 0 0 0 0 0 0 1 0；0 0 0 0 0 0 0 1]s每列總和的百分比。對于A的每個條目，這給出了到該點的重復(fù)次數(shù)百分比堆棧：[1 2 3 2 3 2 2 4 1 2]，[1 1 2 2 3 1 2 4]i%輸入：數(shù)字A%堆棧：[1 2 3 2 4 1 2]，[1 1 1 2 3 1 2 4]，2>；~%小于或等于？元素類型%STACK:[1 2 3 2 3 2 4 1 2]，[1 1 1 1 1 0 1 0]）%Apply as a index（logical mask）%STACK:[1 2 3 3 3 4 1]%Implicit display
• 

  J，13 bytes （>；：1#.]=]\）\ 聯(lián)機(jī)試用！
  
• 

  Stax，6 5 bytes °：?？ u 運行并調(diào)試it
  作為一個碼點字符串輸出（因為Stax將所有數(shù)字?jǐn)?shù)組打印為字符串）。可驗證版本
  explanation cua*
• 

  bc復(fù)制列表u uniquify a將計數(shù)帶到頂部*重復(fù)元素n次
• 

  b multiset intersect
• 

  外殼，4 bytes n1*升級1聯(lián)機(jī)試用！
  I嘗試了幾種不同的方法，但Razetime的方法在外殼中非常簡潔。
  Explanation n1*u兩個參數(shù)的函數(shù)：a=[6,9,7,6,7,9,9]，n=2u唯一值a:[6,9,7]*重復(fù)n次：[6,9,7,6,9,7]n1與a:[6,9,7,7,9]
• 

  J相交，17 bytes 0-.~]-1amp；（]*（-：））NB的解決方案要短。左：n，右：A 1gt；r++[x
• 

  sum[1
• 

  ylt；n]）[] 在線試用！
  
• 

  Python 2，50 bytes lambda s，n:reduce（lambda r，x:r+x*（r.count（x）lt；=n] 在線嘗試！
  以字符列表的形式輸入和輸出。
  55 bytes
  f=lambda s，n:s和f（s[：-1]，n）+s[-1][s.count（s[-1]）>；n:] 聯(lián)機(jī)試用！
  重復(fù)獲取并刪除列表的最后一個元素，如果它在當(dāng)前列表中最多出現(xiàn)n次，則保留它。
  感覺應(yīng)該有更好的方法來表達(dá)這一點，但我沒有看到它。Python在處理列表末尾時很笨拙。雖然l[-k:]通常從末尾取最后k個元素，但對于k=0，它將取整個列表。所以，我沒有找到一個很好的從列表末尾有條件地獲取0或1個元素的片段。另外，執(zhí)行l(wèi).pop（）也有一個問題，即遞歸函數(shù)調(diào)用出現(xiàn)在需要最后一個元素的表達(dá)式之前。
  
• 

  外殼，9 bytes fm≤?Sz#?3 請聯(lián)機(jī)試用！
  f#filter input只保留m≤?#elements小于或等于Sz的arg2的真實值位置的元素??count arg1?3?的每個元素在arg1
• 

  Python 3的前綴列表中的出現(xiàn)次數(shù)，57 bytes lambda a，n:[e代表i，e在enumerate（a）中，如果a[：i]。count（e）<；n] 聯(lián)機(jī)試用！
  
• 

  APL（Dyalog Unicode），2319字節(jié) 通過查看Bubbler如何否定他們答案中的掩碼，節(jié)省了幾個字節(jié)。
  {?/?（?∨（≠?×~）???0} 不要在線嘗試！因為TIO有一個沒有唯一掩碼的Dyalog APL的舊版本。
  取左邊的數(shù)組，n取右邊的數(shù)組。
  這利用了monadic≠的優(yōu)勢，它提供了一個掩碼來獲得唯一的元素。當(dāng)≠A允許您在A中保留唯一的元素時，掩碼1-≠A將其反轉(zhuǎn)，并允許您在A中僅保留重復(fù)的元素。然后，A×1-≠A將唯一的元素替換為零（這是安全的，因為問題說明，A只包含數(shù)字1-9）。掩碼≠A×1-≠A只給我們這個新數(shù)組中唯一的元素，但是因為我們替換了唯一的元素，所以它允許我們保留重復(fù)的元素（以及第一個元素，但是不管發(fā)生什么，它總是被保留）。（≠A）∨≠A×1-≠A否
• End