From bd55b65fbff23655039e2ac55f6d643a13f3d85f Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Tue, 1 Dec 2020 05:29:12 -0700
Subject: ch-2.p6 simplified

---
 challenge-089/mark-anderson/raku/ch-2.p6 | 10 ++++------
 challenge-089/mark-anderson/raku/out     |  3 ---
 2 files changed, 4 insertions(+), 9 deletions(-)
 delete mode 100644 challenge-089/mark-anderson/raku/out

diff --git a/challenge-089/mark-anderson/raku/ch-2.p6 b/challenge-089/mark-anderson/raku/ch-2.p6
index cd40917e6c..e4c838d686 100644
--- a/challenge-089/mark-anderson/raku/ch-2.p6
+++ b/challenge-089/mark-anderson/raku/ch-2.p6
@@ -32,24 +32,22 @@ raku ch-2.p6 17
 
 =end usage
 
-use Scalar::History;
-
 unit sub MAIN(UInt $n where * mod 2 = 3); #= a positive odd integer
 
 .say for odd-magic-square($n);
 
 sub odd-magic-square($n) {
     my @matrix = [0 xx $n] xx $n;
-    my $r := Scalar::History.create(1);
-    my $c := Scalar::History.create(($n / 2).floor - 1); 
+    my $r = 1;
+    my $c = ($n / 2).floor - 1; 
 
     for 1..($n**2) -> $num {
         $r = ($r - 1) mod $n;
         $c = ($c + 1) mod $n;
 
         if @matrix[$r][$c] {
-            $r = $r.VAR.get-history.tail + 1;
-            $c = $c.VAR.get-history.tail;
+            $r = ($r + 1) mod $n + 1;
+            $c = ($c - 1) mod $n;
         }
  
         @matrix[$r][$c] = $num;
diff --git a/challenge-089/mark-anderson/raku/out b/challenge-089/mark-anderson/raku/out
deleted file mode 100644
index 79953f3eed..0000000000
--- a/challenge-089/mark-anderson/raku/out
+++ /dev/null
@@ -1,3 +0,0 @@
-[8 1 6]
-[3 5 7]
-[4 9 2]
-- 
cgit