`
>always write one statement per line as a matter of convention
>still need to put a semicolon at the end of the line
>it's 2012 and everyone has baby duck syndrome about a shitty hack meant to help parsers from the 1960s
Name:
Anonymous2012-07-28 1:51
source code isn't anything like dense text paragraphs sub parse_sexp(;$)
{ @_ = $_ unless @_; my @ret = (); if (shift =~ /^(\(((?:(?>[^()]*)|(?1))*)\))$/) { my $inner = $2; push @ret, $1 ? split ' ', $1 : parse_sexp $2 while $inner =~ /([^()]+)|(\((?:(?>[^()]*)|(?2))*\))/g } return \@ret }