北京
開篇先聽歌。"Let's Dance to Joy Division"，英國樂隊Wombat的歌。歌詞意外貼合編程博客："我昨晚想通了一件事，改變了這個小男孩的腦子，花了22年才悟出的小建議，現在分享給你，請從我的錯誤中學習。"誰不喜歡袋熊呢？
這是Perl Weekly Challenge 373的第二題：列表分割。任務描述很直白——給定一個列表和一個非負整數n，把列表分成n個等份。如果n超過列表長度，返回-1。
看幾個例子就懂了。5個元素分2份，商2余1，多出來的那個塞給第一份，得到(1,2,3)和(4,5)。6個元素分3份，整除，每份2個。10個元素分5份，每份2個。3個元素分4份？n比長度大，輸出-1。
第6個例子有點意思：10個數字分7份，結果是((72,57), (89,55), (36,84), (10), (95), (99), (35))。前3份是2個元素，后4份各1個。分配規則是"靠前的 chunk 更大"，余數從前面開始消化。
作者在這里停頓了一下。通常這類題目給5個例子，這次給了6個。第6個例子看起來沒增加新信息，但那些數字——72,57,89,55,36,84,10,95,99,35——對應ASCII碼是"H9Y7$T?_c#"。作者調侃：這很可能是項目經理Kevin的密碼。Kevin，小心背后。
這個Kevin是誰？前文埋了伏筆。"用-1而不是數組來處理無效輸入，這是代碼異味（code smell）。函數返回不同類型很難處理，容易出錯。更一致的做法是拋異常，或者返回同類型的越界值，比如空數組或null引用。"但"那個只學了六個月JavaScript的混蛋Kevin因為裙帶關系當上了項目經理，這就是我們的需求。"
怨氣沖天的注釋，藏在技術博客的括號里。
說回代碼實現。核心算法幾步走：先算列表長度，n太大直接返回-1。然后算每份基礎大小（向下取整），再算余數。兩個while循環：第一個循環消耗余數，每次取 chunk+1 個元素；第二個循環處理剩下的，每次取 chunk 個。都用splice從原數組頭部切，邊切邊push到結果數組。
作者特意討論了Perl的參數傳遞。Perl把參數打成扁平列表，這里選擇傳數組引用而非數組，兩個好處：一是消除歧義，讓$n的位置清晰；二是更高效——雖然對這個小腳本無所謂，但養成習慣很重要。
整個實現不到20行。簡潔，但藏著對工程實踐的堅持：類型一致性、接口清晰、防御式編程。以及，對Kevin的永恒吐槽。
特別聲明：以上內容(如有圖片或視頻亦包括在內)為自媒體平臺“網易號”用戶上傳并發布，本平臺僅提供信息存儲服務。
Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.
