diff options
Diffstat (limited to 'perl_checker.src/common.ml')
-rw-r--r-- | perl_checker.src/common.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index 554a65c..ddd6b08 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -185,6 +185,11 @@ let rec for_all2_ p l1 l2 = | (a1::l1, a2::l2) -> p a1 a2 && for_all2_ p l1 l2 | (_, _) -> false +let rec for_all2_true p l1 l2 = + match (l1, l2) with + | (a1::l1, a2::l2) -> p a1 a2 && for_all2_true p l1 l2 + | (_, _) -> true + let maxl l = fold_right1 max l let rec stack2list s = |