raku - 整数位的 Perl6-ish 表达式

Question

我一直试图通过查看一些打高尔夫球的问题来锻炼我的 Perl 6 技巧。其中之一涉及提取整数的位。我一直无法想出一种简洁的方式来编写这样的表达式。

到目前为止，我的“最佳”尝试如下，使用 2000作为数字。我不在乎是最重要的还是最不重要的位先出现。

数字表达式:

map { $_ % 2 }, (2000, * div 2 ... * == 0)

递归匿名子程序:

{ $_ ?? ($_ % 2, |&?BLOCK($_ div 2)) !! () }(2000)

转换为字符串:

2000.fmt('%b') ~~ m:g/./

其中，第一个对我来说感觉最干净，但是能够在单个步骤中生成位真的很好，而不是映射到中间列表。

是否有更简洁、更短和/或更惯用的方式来使用单个表达式来获取位？ (也就是说，无需编写命名函数。)

Answer 1

最简单的方法是:

2000.base(2).comb

.base方法返回一个字符串表示，和 .comb将其拆分为字符 - 类似于您的第三种方法。