给你 =）
my $a;my $n = int rand 100;
$a = <STDIN> and print qw<Low Right High>[ 1 + ($a <=> $n) ], "\n"while $a != $n;
这是一个使用 #rakulang 的版本，它使用了声明式高阶技术，展示了该语言的 3 个主要特性：惰性序列、即席角色混入和控制流语句的后缀形式。
my \n = (1..100).pick;
my %a =Less => "Too Low" but False,More => "Too High" but False,Same => "That's right!";
$*IN.lines.first: { .say and .so with %a{ .Int cmp n } }
Raku 也是你所说的 C 风格语言，因此它提供了通常的控制结构，包括 switch、while、until（甚至 "loop"，它无条件地永远循环；无需对编写 "while true" 感到模糊的内疚）。
Raku 是你从未意识到自己想要的语言。https://raku.perl5.cn/#raku on freenodePingback: https://twitter.com/liztormato/status/1379129214239174657
发表的评论
给你 =）
my $a;
my $n = int rand 100;
$a = <STDIN> and print qw<Low Right High>[ 1 + ($a <=> $n) ], "\n"
while $a != $n;
这是一个使用 #rakulang 的版本，它使用了声明式高阶技术，展示了该语言的 3 个主要特性：惰性序列、即席角色混入和控制流语句的后缀形式。
my \n = (1..100).pick;
my %a =
Less => "Too Low" but False,
More => "Too High" but False,
Same => "That's right!";
$*IN.lines.first: { .say and .so with %a{ .Int cmp n } }
Raku 也是你所说的 C 风格语言，因此它提供了通常的控制结构，包括 switch、while、until（甚至 "loop"，它无条件地永远循环；无需对编写 "while true" 感到模糊的内疚）。
Raku 是你从未意识到自己想要的语言。
https://raku.perl5.cn/
#raku on freenode
Pingback: https://twitter.com/liztormato/status/1379129214239174657