############################################################ # # file: support.pl # # # # Random support functions # sub Abs { local($val) = @_; return ($val > 0) ? $val : -$val; }; # # sub member # # Return 1 if the string $elem is a member of @lis. # 0 otherwise # sub member { local($elem, @lis) = @_; local($i); foreach $i (@lis) { if($elem eq $i) { return 1; }; } return 0; }; 1;