Streamline Map/Hash.gist a bit more

rakudo · Jan 8, 2019 · 225d2f9 · 225d2f9
1 parent f010ef5
commit 225d2f9
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 13 deletions.
diff --git a/src/core/Hash.pm6 b/src/core/Hash.pm6
@@ -195,16 +195,12 @@ my class Hash { # declared in BOOTSTRAP
     }
 
     multi method gist(Hash:D:) {
-        self.gistseen(self.^name, {
-            '{' ~
-            self.sort.map({
-                state $i = 0;
-                ++$i == 101 ?? '...'
-                    !! $i == 102 ?? last()
-                        !! .gist
-            }).join(', ')
-            ~ '}'
-        })
+        self.gistseen: self.^name, {
+            '{'
+              ~ self.sort.head(100).map(*.gist).join(', ')
+              ~ (', ...' if self.elems > 100)
+              ~ '}'
+        }
     }
 
     multi method DUMP(Hash:D: :$indent-step = 4, :%ctx) {

diff --git a/src/core/Map.pm6 b/src/core/Map.pm6
@@ -213,9 +213,11 @@ my class Map does Iterable does Associative { # declared in BOOTSTRAP
     }
 
     multi method gist(Map:D: --> Str:D) {
-        my @pairs = self.sort.head(100).map: *.gist;
-        @pairs.push("...") if self.elems > 100;
-        self.^name ~ '.new((' ~ @pairs.join(', ') ~ '))'
+        self.^name
+          ~ '.new(('
+          ~ self.sort.head(100).map(*.gist).join(', ')
+          ~ (', ...' if self.elems > 100)
+          ~ '))'
     }
 
     multi method perl(Map:D \SELF: --> Str:D) {