17 lines
418 B
Plaintext
17 lines
418 B
Plaintext
using Printf
|
|
|
|
function balancedbrackets(str::AbstractString)
|
|
i = 0
|
|
for c in str
|
|
if c == '[' i += 1 elseif c == ']' i -=1 end
|
|
if i < 0 return false end
|
|
end
|
|
return i == 0
|
|
end
|
|
|
|
brackets(n::Integer) = join(shuffle(collect(Char, "[]" ^ n)))
|
|
|
|
for (test, pass) in map(x -> (x, balancedbrackets(x)), collect(brackets(i) for i = 0:8))
|
|
@printf("%22s%10s\n", test, pass ? "pass" : "fail")
|
|
end
|