diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-12-01 05:29:12 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-12-01 05:29:12 -0700 |
| commit | bd55b65fbff23655039e2ac55f6d643a13f3d85f (patch) | |
| tree | d928e3627f7831896660ae4a201ca8885c59f8f6 | |
| parent | a55dd6a6b5f3766a631f8403109dd7f61e8c8aa2 (diff) | |
| download | perlweeklychallenge-club-bd55b65fbff23655039e2ac55f6d643a13f3d85f.tar.gz perlweeklychallenge-club-bd55b65fbff23655039e2ac55f6d643a13f3d85f.tar.bz2 perlweeklychallenge-club-bd55b65fbff23655039e2ac55f6d643a13f3d85f.zip | |
ch-2.p6 simplified
| -rw-r--r-- | challenge-089/mark-anderson/raku/ch-2.p6 | 10 | ||||
| -rw-r--r-- | challenge-089/mark-anderson/raku/out | 3 |
2 files changed, 4 insertions, 9 deletions
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] |