RosettaCodeData/Task/Balanced-brackets/PARI-GP/balanced-brackets.pari
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

13 lines
267 B
Text

balanced(s)={
my(n=0,v=Vecsmall(s));
for(i=1,#v,
if(v[i]==91,
n++
,
if(v[i]==93 && n, n--, return(0))
)
);
!n
};
rnd(n)=Strchr(vectorsmall(n,i,if(random(2),91,93)))
forstep(n=0,10,2,s=rnd(n);print(s"\t"if(balanced(s),"true","false")))