В Perl 6 существуют операторы min и max для поиска минимума и максимума. Все очень просто и интуитивно:
say 5 min 10; # 5 say 5 max 10; # 10
Чуть менее очевидно, что такие операторы легко объединяются в цепочку и находить минимальный элемент в более длинных списках:
say 4 min 2 min 10 min 5 min 3; # 2 say 4 max 2 max 10 max 5 max 3; # 10
Внимательный читатель может заметить, и будет прав, что здесь уместен оператор редукции:
say [min] 4, 2, 10, 5, 3; # 2 say [max] 4, 2, 10, 5, 3; # 10
Наконец, если есть список как объект, то на нем можно вызвать одноименные методы:
say (4, 2, 10, 5, 3).min; # 2 say (4, 2, 10, 5, 3).max; # 10
Это работает и со строками, но, разумеется, они сортируются как строки, независимо от смысла:
say <one two three four five six>.min; # five say <one two three four five six>.max; # two