- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我试着写 yangyanzhan's solution of the raku-riddle-contest在乐 OOP 中。乐课系统非常直观,everything work as a charm直到我遇到一个递归函数。这是类和函数的代码版本:
class Encounters {
has $.tigers;
has @!encounters;
method encounters {
if @!encounters.elems eq $.tigers {
return [@!encounters, ];
}
my @total_encounters = [] ;
for 1..$.tigers -> $tiger {
if ($tiger / 2) eq ($tiger / 2).round {
@!encounters = ( @!encounters, [$tiger]).flat ;
my @encounter_events = Encounters.new( tigers => $.tigers, encounters => @!encounters ).encounters;
@total_encounters.append: @encounter_events;
}
}
return @total_encounters;
}
}
sub encounters($tigers, @encounters) {
if @encounters.elems eq $tigers {
return [@encounters, ];
}
my @total_encounters = [] ;
for 1..$tigers -> $tiger {
if ($tiger / 2) eq ($tiger / 2).round {
my $sig = ( @encounters, [$tiger] ).flat;
my @encounter_events = encounters( $tigers, $sig );
@total_encounters.append: @encounter_events;
}
}
return @total_encounters;
}
sub MAIN( $tigers ) {
(encounters $tigers, [] ).say;
Encounters.new( tigers => $tigers ).encounters.say;
}
对于 $tigers = 4,函数给出:
[(2 2 2 2) (2 2 2 4) (2 2 4 2) (2 2 4 4) (2 4 2 2) (2 4 2 4) (2 4 4 2) (2 4 4 4) (4 2 2 2) (4 2 2 4) (4 2 4 2) (4 2 4 4) (4 4 2 2) (4 4 2 4) (4 4 4 2) (4 4 4 4)]
另一方面,类总是陷入无限循环。我相信函数和类之间的区别在于这行代码:
@!encounters = ( @!encounters, [$tiger]).flat;
my $sig = ( @encounters, [$tiger] ).flat;
我不清楚这是因为递归语法格式错误还是函数和类之间的类型约束不同。
最佳答案
好吧,它们不是相同的算法也无济于事。
它们很接近,但又不一样。
在子程序一中,您有:
my $sig = ( @encounters, [$tiger] ).flat;
但该方法改为使用以下方法修改属性:
@!encounters = ( @!encounters, [$tiger]).flat;
我真的不知道当一个不修改其参数但另一个修改它时,您如何期望它以相同的方式行事。
Seq
值。
my $sig = ( @encounters, [$tiger] ).flat;
note $sig.raku;
# $((2, 4, 2, 2).Seq)
而方法一使用数组。
eq
用于比较数字。
$tigers %% 2
的情况下计算两次除以 2
@!encounters
处于不一致状态无济于事。
4
以外的数字。 .
.flat
.
关于class - 递归函数和类中的 Raku 类型约束,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/65567951/
虽然总是可以使用 mixin 或方法覆盖来修改 Bool 强制转换,但默认情况下哪些值被认为是真值,哪些值被认为是假值? 注意:这个问题是 asked previously ,但不幸的是它太旧了,它的
也许我遗漏了一些东西,但我想知道这段代码是否有充分的理由 编译 role L { method do-l (Int, Int --> Int ) { ... } } class A does L
FAQ:在 Raku 中如何检查列表是否为空? 是否有比以下更惯用的方法: my @l = (); say @l.elems == 0; say @l == (); say @l.Bool; doc
FAQ:在 Raku 中,如何从列表中删除重复项以仅获取唯一值? my $arr = [1, 2, 3, 2, 3, 1, 1, 0]; # desired output [1, 2, 3, 0] 最
我使用 Raku 进行一些计算,因为它有很好的数字类型。但是,我在使用“.raku”时遇到问题 say (1/6+1/6).raku # 我们得到这个。然而, say (1/10+1/10).raku
常见问题解答:在 Raku 中,如何将字符串转换为十六进制的字节列表(即十六进制解码器) 目前,我有: say "I ❤ 🦋".encode.list.map(*.base(16)); # (49
在 1990 年代和 2000 年代,编程语言爱好者几乎没有讨论过分隔延续的话题。它最近重新成为编程语言讨论中的一个主要问题。 我希望有人至少可以权威地说出 Rakudo 背后的延续(与 Raku 相
我选择在 Perl 6 中重新设计我之前代码的一部分,在这种情况下是一个棋盘。前两个类运行良好(或者至少工作正常,我知道的很少,我无法确定它们的正确性) ,但我坚持第三。这是代码: #!/home/h
如何重现数组的每个元素 x 次? 例如 for my @a=;和 x=5 ,结果应该是这样的 (blu blu blu blu blu red red red red red) 我想出了这个 say
我正在尝试使用一个变量并在一个步骤中为其分配一个表达式: 给定的(示例)代码 my @l=; my $i=0; while $i ; my $i=0; say @l[$i =~ ($i+1) * 2]
我想连续打印偶数,但我不能。 use Terminal::ANSIColor; # Wanna print even numbers in red for { $_ %2 == 0 ?? say c
目前(截至 2020 年 8 月)Rakudo 不在编译时对函数的返回值进行类型检查;也就是说,它不提供函数满足其返回约束的静态保证。具体来说,以下两个函数都编译为 Raku: sub get-int
自从我上次更新我在 Raku 生态系统中的一个模块以来已经有一段时间了。我需要更新中央注册表文件/存储库还是会自动检测到更新? 最佳答案 修改版本号后,我等了一个小时左右,然后 zef可以安装模块 -
有人能告诉我如何在正在执行的 Raku 脚本中找到脚本的路径吗? 我正在 Raku 中寻找与此 Perl 代码等效的代码: $path=abs_path($0); 最佳答案 使用 $*PROGRAM见
Raku的正则表达式有两种交替形式:|和||。有什么区别 ? say 'foobar' ~~ / foo || foobar / # 「foo」 say 'foobar' ~~ / foo | fo
我故意避免使用术语 defined因为一个变量很可能有一个定义的值,但 .defined方法将返回 false(例如,失败)。 有什么方法可以确定变量是否已为其设置了值? my $foo; say $
我从/path/to/data 运行/home/foo/bar.p6 并显示“Segmentation fault (core dumped)” 我在/var/crash 或我的主目录或当前工作目录中
在 cli 上,在 linux 中,cp -p保留文件上修改/访问的时间戳。是否可以直接在 Raku 中执行相同操作? Rosetta 示例使用 Nativecall,它可以通过系统调用来完成,但看起
我想重用 token parameter来自 Perl6::Grammar在我的自定义俚语中添加“自定义参数”参数不带 cargo 培养 . 我的意思是说: my $main-grammar = $*
关闭。这个问题需要更多focused .它目前不接受答案。 想改善这个问题吗?更新问题,使其仅关注一个问题 editing this post . 去年关闭。 Improve this questio
我是一名优秀的程序员,十分优秀!