🎄 17/25. 在 Perl 6 中使用素数

欢迎来到 Perl 6 One-Liner Advent Calendar 的第17天!今天,我们将有两个单行程序,它们都产生一些素数。

第1部分

首先,让我们解决欧拉项目的问题7,你需要打印第 10001 个素数(第一个素数是2)。

Perl 6 擅长素数,因为它有一个 Int 类的内置方法,is-prime

有几种方法可以生成素数。对于单行程序,最简单的就是最好的, 效率也最低, 方法就是测试每个数字。

1
say ((1..*).grep: *.is-prime)[10000]

计算结果大约需要半分钟,但代码很短。总有一天,我们将使用所谓的埃拉托色尼筛来解决这个问题,它应该更快,但可能需要更多的代码。

第2部分

在这个 advent 文章的第二部分,让我们娱乐一下并解决 code-golf.io 网站上的相应问题。我们需要打印100以下的所有素数。

我的答案需要22个字符,如下所示:

1
.is-prime&&.say for ^Ⅽ

在 Perl 6 中没有更短答案了,而在J中,他们做到了只使用11个字符。在 Perl 6 中,方法名已经消耗了八个字符。我相信,要赢得所有的高尔夫比赛,你需要一种名称很短的特殊语言(J就是)和一组内置例程来生成素数,或斐波那契或任何其他数字序列的列表。它还应该强烈利用Unicode字符空间。

在我们的 Perl 6 示例中,还有一个 Unicode 字符,。这不是简单的 C,拉丁字母的第三个字母,而是 Unicode 字符 ROMAN NUMERAL ONE HUNDRED(原本是拉丁字母的第三个字母,当然)。使用此符号,我们可以在答案中节省两个字符。

&& 技巧是可能的,因为如果第一个操作数是 False,Perl 不会执行布尔表达式的第二部分。请注意,您不能在此处使用单个 。完整的非优化版本的代码需要额外的空格,如下所示:

1
.say if .is-prime for ^100

这就是今天 Perl 6 之旅的终点,明天见!