Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
brackets test 2
#perl 5.22 my $str=""; for my $length (0..(rand()*10+4)){ $str.=("(",")")[rand()*2]; } print balance( $str); sub balance{ my $level=0; my $pointer =0; foreach (split "",shift){ $level+=($_ eq "(")?1:-1; last if $level<0; } return 1+$level/abs ($level); }
run
|
edit
|
history
|
help
0
size_of_array
101734
PRAC 2 #5
Simple Perl Interview Question
Closure
testing dereference of anonymous routines
Perl programs
Compare Versions
Array_with_push_function
Perl