From 7c85b9cbd2810d85025495c46ebf4db9c73b0ed9 Mon Sep 17 00:00:00 2001
From: k-mx <cppfero@gmail.com>
Date: Mon, 26 Apr 2021 08:33:11 +0500
Subject: Improvement for ch-2.raku by Maxim Kolodyazhny

+space separated arguments list
---
 challenge-109/maxim-kolodyazhny/raku/ch-2.raku | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/challenge-109/maxim-kolodyazhny/raku/ch-2.raku b/challenge-109/maxim-kolodyazhny/raku/ch-2.raku
index bc524a2fef..fb1dc3adfe 100755
--- a/challenge-109/maxim-kolodyazhny/raku/ch-2.raku
+++ b/challenge-109/maxim-kolodyazhny/raku/ch-2.raku
@@ -1,8 +1,8 @@
 #!/usr/bin/env raku
 
 multi sub MAIN ( $_  where { /\,/ } ) { samewith .split: <,> }
-multi sub MAIN ( $_  where { .unique and .all ~~ /^ \d+ $/ and .elems == 7 }) {
-    .permutations
+multi sub MAIN ( *@n  where { .unique and .all ~~ /^ \d+ $/ and .elems == 7 }) {
+    @n.permutations
         .first({
                 [==] .rotor( <2 -1 3 -1 3 -1>.pairup )>>.sum
             })
@@ -11,9 +11,8 @@ multi sub MAIN ( $_  where { .unique and .all ~~ /^ \d+ $/ and .elems == 7 }) {
 
 sub USAGE() {
     print qq:to/EOH/;
-    Usage: {$*PROGRAM-NAME} [1,2,3...,7]
+    Usage: {$*PROGRAM-NAME} [1,2,3,...,7] or [1 2 3 ... 7]
 
     Prints the answer for "Four Squares Puzzle"
 EOH
 }
-
-- 
cgit