পার্ল 6 (36 বাইট, 35 টি অক্ষর)
»
>>
আপনি ইউটিএফ -8 পরিচালনা করতে না পারলে এর সাথে প্রতিস্থাপন করা যেতে পারে । আমি প্রায় নিশ্চিত যে এটি আরও সংক্ষিপ্ত হতে পারে তবে Bag
শ্রেণিটি এর আচরণে (দুঃখের সাথে) তুলনামূলকভাবে অদ্ভুত এবং এটি তুলনামূলকভাবে নতুন হিসাবে এটি সম্পূর্ণরূপে সম্পূর্ণ নয় (তবে এটি যুক্তি গণনা করতে পারে)। {}
একটি বেনামী ফাংশন ঘোষণা করে।
{(sort -*.value,pairs bag @_)».key}
নমুনা আউটপুট (পার্ল 6 রিপল থেকে):
> my @names = ("John","Doe","Dick","Harry","Harry","Doe","Doe","Harry","Doe","John")
John Doe Dick Harry Harry Doe Doe Harry Doe John
> {(sort -*.value,pairs bag @_)».key}(@names)
Doe Harry John Dick