From b334f142aee1196cad0c3a1a4a4ea4e3df06b643 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 4 Dec 2023 23:13:15 +0000
Subject: ch-2.raku do-over

---
 challenge-246/mark-anderson/raku/ch-2.raku | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'challenge-246')

diff --git a/challenge-246/mark-anderson/raku/ch-2.raku b/challenge-246/mark-anderson/raku/ch-2.raku
index 569d971ed1..97aef3e5a6 100644
--- a/challenge-246/mark-anderson/raku/ch-2.raku
+++ b/challenge-246/mark-anderson/raku/ch-2.raku
@@ -13,9 +13,7 @@ sub linear-recurrence-of-second-order(@a)
 
     return False unless all($p, $q) ~~ Int;
 
-    my @s = (@a[0], @a[1], -> $a, $b { $a*$p + $b*$q }...*).head(5).Array; 
-
-    @a eqv @s
+    @a eqv (@a[0], @a[1], -> $a, $b { $a*$p + $b*$q }...*).head(5).Array 
 }
   
 sub p(@a)
-- 
cgit