raku - 如何使用定义的生成器构建惰性列表，是否有 "takeWhile"替代方案？

In lại 作者：行者123 更新时间：2023-12-04 22:19:07 27 4

sub foo($x) {
  $x**2
}

my $alist = (1,2, &foo ... ^ * > 100);

sub take-while ( &condition, Iterable \sequence ){
  my \iterator = sequence.iterator;

  my \generator = gather loop {
    my \value = iterator.pull-one;
    last if value =:= IterationEnd or !condition(value);
    take value;
  }

  # should propagate the laziness of the sequence
  sequence.is-lazy
  ?? generator.lazy
  !! generator
}

sub drop-while ( &condition, Iterable \sequence ){
  my \iterator = sequence.iterator;

  GATHER: my \generator = gather {

    # drop initial values
    loop {
      my \value = iterator.pull-one;

      # if the iterator is out of values, stop everything
      last GATHER if value =:= IterationEnd;

      unless condition(value) {
        # need to take this so it doesn't get lost
        take value;

        # continue onto next loop
        last;
      }
    }

    # take everything else
    loop {
      my \value = iterator.pull-one;
      last if value =:= IterationEnd;
      take value
    }
  }

  sequence.is-lazy
  ?? generator.lazy
  !! generator
}

sub take-while ( &condition, Iterable \sequence ){
  my \iterator = sequence.iterator;
  my \generator = { iterator.pull-one } …^ { !condition $_ }
  sequence.is-lazy ?? generator.lazy !! generator
}

sub drop-while ( &condition, Iterable \sequence ){
  my \end-condition = sequence.is-lazy ?? * !! { False };
  my \iterator = sequence.iterator;

  my $first;
  loop {
    $first := iterator.pull-one;
    last if $first =:= IterationEnd;
    last unless condition($first);
  }

  # I could have shoved the loop above into a do block
  # and placed it where ｢$first｣ is below

  $first, { iterator.pull-one } … end-condition
}

LÀM {
  my $x = 0;
  { (++$x)² } …^ * > 100
}

{ ( ++(state $x = 0) )² } …^ * > 100

{ (++( $ ))² } …^ * > 100
{ (++$)² } …^ * > 100

{ (++( $ //= 5))² } …^ * > 100

say 1,2,4 ...^ 100
# (1 2 4 8 16 32 64)

say 1, { $_ * 2 } ... 64;
# (1 2 4 8 16 32 64)

say 1, { $_ * 2 } ... 3;
# (1 2 4 8 16 32 64 128 256 512 ...)

27 4 0

• raku - Raku 中的真值和假值是什么？

  虽然总是可以使用 mixin 或方法覆盖来修改 Bool 强制转换，但默认情况下哪些值被认为是真值，哪些值被认为是假值？ 注意:这个问题是 asked previously ，但不幸的是它太旧了，它的

• raku - raku 角色中的签名限制

  也许我遗漏了一些东西，但我想知道这段代码是否有充分的理由 编译 role L { method do-l (Int, Int --> Int ) { ... } } class A does L

• raku - 检查列表是否为空 (Raku)

  FAQ:在 Raku 中如何检查列表是否为空？ 是否有比以下更惯用的方法: my @l = (); say @l.elems == 0; say @l == (); say @l.Bool; doc

• raku - 如何删除列表中的重复项 (Raku)

  FAQ:在 Raku 中，如何从列表中删除重复项以仅获取唯一值？ my $arr = [1, 2, 3, 2, 3, 1, 1, 0]; # desired output [1, 2, 3, 0] 最

• raku - Raku 中的有理数

  我使用 Raku 进行一些计算，因为它有很好的数字类型。但是，我在使用“.raku”时遇到问题 say (1/6+1/6).raku # 我们得到这个。然而， say (1/10+1/10).raku

• raku - 将字符串转换为每个字节的十六进制列表 (Raku)

  常见问题解答:在 Raku 中，如何将字符串转换为十六进制的字节列表(即十六进制解码器) 目前，我有: say "I ❤ ".encode.list.map(*.base(16)); # (49

• raku - Raku(do) 所依赖的延续的具体细节是什么？

  在 1990 年代和 2000 年代，编程语言爱好者几乎没有讨论过分隔延续的话题。它最近重新成为编程语言讨论中的一个主要问题。 我希望有人至少可以权威地说出 Rakudo 背后的延续(与 Raku 相

• raku - 创建并填充一组 Raku 对象？

  我选择在 Perl 6 中重新设计我之前代码的一部分，在这种情况下是一个棋盘。前两个类运行良好(或者至少工作正常，我知道的很少，我无法确定它们的正确性) ，但我坚持第三。这是代码: #!/home/h

• raku - 在 Raku 中实际再现数组的元素

  如何重现数组的每个元素 x 次？ 例如 for my @a=;和 x=5 ，结果应该是这样的 (blu blu blu blu blu red red red red red) 我想出了这个 say

• raku - 在 Raku 中一步使用变量并为其分配表达式

  我正在尝试使用一个变量并在一个步骤中为其分配一个表达式: 给定的(示例)代码 my @l=; my $i=0; while $i ; my $i=0; say @l[$i =~ ($i+1) * 2]

• raku - 在 Raku 中说没有换行符

  我想连续打印偶数，但我不能。 use Terminal::ANSIColor; # Wanna print even numbers in red for { $_ %2 == 0 ?? say c

• raku - Raku 在编译时执行哪些类型检查？将来可能会改变吗？

  目前(截至 2020 年 8 月)Rakudo 不在编译时对函数的返回值进行类型检查；也就是说，它不提供函数满足其返回约束的静态保证。具体来说，以下两个函数都编译为 Raku: sub get-int

• raku - 更新 Raku 生态系统中的模块

  自从我上次更新我在 Raku 生态系统中的一个模块以来已经有一段时间了。我需要更新中央注册表文件/存储库还是会自动检测到更新？ 最佳答案 修改版本号后，我等了一个小时左右，然后 zef可以安装模块 -

• raku - 查找执行 Raku 脚本的路径

  有人能告诉我如何在正在执行的 Raku 脚本中找到脚本的路径吗？ 我正在 Raku 中寻找与此 Perl 代码等效的代码: $path=abs_path($0); 最佳答案 使用 $*PROGRAM见

• raku - Raku Regex中单管道和双管道之间的差异(| Vs ||)

  Raku的正则表达式有两种交替形式:|和||。有什么区别 ？ say 'foobar' ~~ / foo || foobar / # ｢foo｣ say 'foobar' ~~ / foo | fo

• raku - 确定是否设置了 Raku 中的变量

  我故意避免使用术语 defined因为一个变量很可能有一个定义的值，但 .defined方法将返回 false(例如，失败)。 有什么方法可以确定变量是否已为其设置了值？ my $foo; say $

• raku - 我在哪里可以找到 Raku 核心转储文件？

  我从/path/to/data 运行/home/foo/bar.p6 并显示“Segmentation fault (core dumped)” 我在/var/crash 或我的主目录或当前工作目录中

• raku - 在 Raku 中复制文件时保留属性

  在 cli 上，在 linux 中，cp -p保留文件上修改/访问的时间戳。是否可以直接在 Raku 中执行相同操作？ Rosetta 示例使用 Nativecall，它可以通过系统调用来完成，但看起

• raku - 如何在自定义语法 (Raku) 中重用语言标记

  我想重用 token parameter来自 Perl6::Grammar在我的自定义俚语中添加“自定义参数”参数不带 cargo 培养 . 我的意思是说: my $main-grammar = $*

• raku - 如何在 Raku 中列出动态和编译时变量

  关闭。这个问题需要更多focused .它目前不接受答案。 想改善这个问题吗？更新问题，使其仅关注一个问题 editing this post . 去年关闭。 Improve this questio