From fda0f198254332ff0fe7d46f2520181b4a4c1524 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=86=AF=E6=98=B6?= <seaker@qq.com>
Date: Mon, 7 Dec 2020 19:08:18 +0800
Subject: [PATCH] fix

---
 challenge-090/feng-chang/raku/ch-2.raku | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/challenge-090/feng-chang/raku/ch-2.raku b/challenge-090/feng-chang/raku/ch-2.raku
index 650f57e513..eb089b92c9 100755
--- a/challenge-090/feng-chang/raku/ch-2.raku
+++ b/challenge-090/feng-chang/raku/ch-2.raku
@@ -2,8 +2,7 @@
 
 sub MAIN(UInt:D $A, UInt:D $B) {
     my ($a, $b) = ($A, $B);
-    my $aw = $a.chars;
-    my $bw = ($b * $a).chars;
+    my ($aw, $bw) = ($a.chars, ($b * $a).chars);
     my @R;
 
     repeat {
@@ -16,6 +15,6 @@ sub MAIN(UInt:D $A, UInt:D $B) {
 
     put '-' x ($aw + $bw + 3);
 
-    my @S = @R.grep({ .[0] !%% 2 }).map({ .[1] });
+    my @S = @R.grep(*.[0] !%% 2).map(*.[1]);
     put @S.join(' + '), ' = ', @S.sum;
 }