http://qs1969.pair.com?node_id=485042


in reply to Sparkling Japh

There is a slight typo in the 'download' version:
#line 2: 0];)}sub p( # should be: 0])}sub p( #line 3: $_[0];+rand($_ [1];-$_[0 ];+1)}$|= #should read $_[0]+rand($_ [1]-$_[0 ]+1)}$|= # and line 9: 1];,$ # should read: 1],$

"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.