JS 依照元素出現數量排序

同樣是最近遇到的狀況,需要利用陣列內元素出現的數量進行排序,以下為範例程式:

var array = ["1", "2", "4", "5", "2", "4", "2", "3"];
var str = array.toString();
var filter = [];
var result = [];
document.write("原始陣列:" + array + "<br>");

var get = function (str, tar, arr, tmp) {
    if (str.indexOf(tar) >= 0) {
        tmp = str.slice(str.indexOf(tar) + 1);
        arr.push(tar);
        get(tmp, tar, arr, tmp);
    }
    return arr;
}

for (i in array) {
    var elm = [];
    var tmp;
    var fstr = filter.join();
    if (fstr.indexOf(array[i]) >= 0) {
        continue;
    } else {
        var tmp_arr = get(str, array[i], elm, tmp);
        result.push(tmp_arr.length + ':' + tmp_arr[0]);
        filter.push(array[i]);
    }
}

result.sort();
result.reverse();

//按照出現次數排序,不刪除重複元素
var finishArray = [];

for (index in result) {
    var show = result[index].split(':');
    for (i = 0; i < show[0]; i++) {
        finishArray.push(show[1]);
    }
}
document.write("按出現次數排序,不刪除重複元素:" + finishArray + "<br>");

//按照出現次數排序,刪除重複元素
var finishArray = [];
for (index in result) {
    var show = result[index].split(':');
    finishArray.push(show[1]);
}
document.write("按出現次數排序,刪除重複元素:" + finishArray + "<br>");

輸出結果:

原始陣列:1,2,4,5,2,4,2,3
按出現次數排序,不刪除重複元素:2,2,2,4,4,5,3,1
按出現次數排序,刪除重複元素:2,4,5,3,1

You may also like...

1,627,274 Responses

  1. Samuelcuh表示:

    USACanadaPharm: canadian pharmacy sarasota – best canadian online pharmacy

  2. Samuelcuh表示:

    canada ed drugs: ordering drugs from canada – best canadian online pharmacy

  3. Albertbiave表示:

    http://usacanadapharm.com/# USACanadaPharm

  4. Albertbiave表示:

    https://usacanadapharm.com/# ed meds online canada

  5. Dwightkak表示:

    canadian pharmacy cheap: pharmacy wholesalers canada – usa canada pharm

  6. Samuelcuh表示:

    canada rx pharmacy world: canadian pharmacy world – usa canada pharm

  7. TimothyDok表示:

    cheap canadian pharmacy canadian pharmacy 1 internet online drugstore USACanadaPharm

  8. TimothyDok表示:

    canadian world pharmacy precription drugs from canada usa canada pharm

  9. Samuelcuh表示:

    best online canadian pharmacy: usa canada pharm – my canadian pharmacy rx

  10. Terrygor表示:

    Pill impacts described. https://isotretinointop.shop/# Drug brochure available. where can i buy accutane in australia

  11. Cazrfrc表示:

    Купить диплом ВУЗа по выгодной цене можно, обратившись к надежной специализированной фирме. Мы можем предложить документы ВУЗов на Ваш выбор, которые расположены на территории всей РФ. empleos.ssstaffingsolution.com/employer/eonline-diploma

  12. Dwightkak表示:

    USACanadaPharm: USACanadaPharm – canada pharmacy online

  13. TimothyDok表示:

    legitimate canadian online pharmacies USACanadaPharm usa canada pharm

  14. Albertbiave表示:

    https://usacanadapharm.com/# usa canada pharm

  15. Cazralr表示:

    Мы изготавливаем дипломы любой профессии по доступным тарифам. Купить диплом Азов — kyc-diplom.com/geography/azov.html

  16. Good choice of video clips from Indian massage therapy parlour sex scenes.

  17. Dwightkak表示:

    canadian pharmacies compare: usa canada pharm – my canadian pharmacy

  18. Samuelcuh表示:

    USACanadaPharm: canadian pharmacy oxycodone – usa canada pharm

  19. Cazrajz表示:

    Заказать диплом ВУЗа по выгодной стоимости возможно, обратившись к проверенной специализированной компании. Мы можем предложить документы учебных заведений, расположенных на территории всей РФ. povzroslomu.kabb.ru/viewtopic.phpf=3&t=996

  20. 1win_tjSt表示:

    1вин сайт официальный 1win7017.ru .

  21. 1win_likl表示:

    cod promoțional 1win cod promoțional 1win .

  22. Albertbiave表示:

    http://usacanadapharm.com/# canadian drug

  23. TimothyDok表示:

    reliable canadian online pharmacy usa canada pharm usa canada pharm

  24. bf desi sex表示:

    Excellent short article, offers some insight into the subject of desi gf bf sex.

  25. Samuelcuh表示:

    usa canada pharm: usa canada pharm – canadian pharmacy price checker

  26. StephenCer表示:

    canadian drugs: USACanadaPharm – USACanadaPharm

  27. TimothyDok表示:

    usa canada pharm canadian pharmacy uk delivery best canadian pharmacy to buy from

發佈回覆給「Cazralr」的留言 取消回覆

發佈留言必須填寫的電子郵件地址不會公開。