# 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 $cat /tmp/f7OZkWSnoP:1» <masak> huh. <masak> nom: all(my $c for ()) <p6eval> nom bd5adb: OUTPUT«===SORRY!===Redeclaration of symbol $cat /tmp/XLWPyMzIwp:1» <masak> that's the shortest I can make it. * masak submits rakudobug