Abbreviations, automatic: Difference between revisions

Content deleted Content added

Inline

@@ Line 866: / Line 866: @@
 <lang perl6>sub auto-abbreviate ( Str $string ) {
     return Nil unless my @words = $string.words;
-    my $max = @words.chars.max;
+    return $_ if @words».substr(0, $_).Set == @words for 1 .. @words».chars.max;
-    for 0 .. $max {
+    return '∞';
-        return $_ if @words».substr(0, $_).Set == @words;
-        return '∞' if $_ == $max;
-    }
 }