# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #110820]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=110820 >


<masak> nom: sub balanced { all((my $c += $_ eq "[" ?? 1 !! -1) < 0
for $^s.comb) && !$c }; .say when &balanced for (^(2 **
6))».fmt("%06b")».trans("01" => "[]")
<p6eval> nom bd5adb: OUTPUT«===SORRY!===␤Redeclaration of symbol $c␤at
/tmp/f7OZkWSnoP:1␤»
<masak> huh.
<masak> nom: all(my $c for ())
<p6eval> nom bd5adb: OUTPUT«===SORRY!===␤Redeclaration of symbol $c␤at
/tmp/XLWPyMzIwp:1␤»
<masak> that's the shortest I can make it.
* masak submits rakudobug

Reply via email to