Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Cloeren 4 Coding
testing anonymous routine dereference with alternate syntax
taller in front
5_5
Basics
shuffle array
Perl
Prac 2 #2
Hello
Perl - Sort hash of filenames by file extension
Please log in to post a comment.