/ls.ml Secret

## 16 changes: 16 additions & 0 deletions ls.ml
@@ -0,0 +1,16 @@


    open Core.Std
open Core.Std


    module Regex = Re2.Regex
module Regex = Re2.Regex


    let ls pattern =
let ls pattern =

      let pat = Regex.create_exn pattern in
  let pat = Regex.create_exn pattern in

      let matcher = Regex.matches pat in
  let matcher = Regex.matches pat in

      Sys.ls_dir "."
  Sys.ls_dir "."

      |> List.filter ~f:matcher
  |> List.filter ~f:matcher

      |> List.iter ~f:(fun s -> print_string s; print_newline ())
  |> List.iter ~f:(fun s -> print_string s; print_newline ())


    let () =
let () =

      match In_channel.input_line stdin with
  match In_channel.input_line stdin with

      | None -> (print_string "No Input"; print_newline ())
  | None -> (print_string "No Input"; print_newline ())

      | Some pat -> ls pat
  | Some pat -> ls pat