Source file compare.ml

(* Copyright 2018-present Cornell University
 *
 * Licensed under the Apache License, Version 2.0 (the "License"); you may not
 * use this file except in compliance with the License. You may obtain a copy
 * of the License at
 *
 *   http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
 * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
 * License for the specific language governing permissions and limitations
 * under the License.
 *)

let equals (input : string) (output : string) =
  let to_list s = List.init (String.length s) (String.get s) in
  let input = to_list input in
  let output = to_list output in
  List.length input = List.length output
  && List.fold_left2
       (fun same i o -> same && (o = '*' || i = o))
       true input output