Perl 每周挑战 245：三的倍数最大数

本文是Perl Weekly Challenge第245周任务2的答案。

任务要求给定一个大于等于0的整数数组，编写脚本返回由给定整数任意顺序连接而成的最大数，该数同时也是3的倍数。

如果找不到符合条件的数，则返回-1。

通过对输入数组进行降序排序，可以得到连接整数的最大组合。

给出了Raku和Perl两种语言的解决方案。

Raku解决方案使用内置的组合例程生成各种可能性。

如果任何数字是3的倍数，则其数字的任何排列也是3的倍数。

Raku程序的输出示例包括：981、9831、8760和-1。

本周没有足够的时间为Perl提供解决方案。

下周的Perl Weekly Challenge即将开始，参与者需在2023年12月10日23:59 BST之前提交答案。