Skip to content

Latest commit

 

History

History
16 lines (13 loc) · 264 Bytes

File metadata and controls

16 lines (13 loc) · 264 Bytes

Stream.of_array_reverse : 'a array -> 'a Stream.t

let unsubscribe = [|1; 2; 3|]
  |> Stream.of_array_reverse
  |> Stream.subscribe (fun x -> x |> string_of_int |> print_endline)

let _ = print_endline "pass"

(*
  > 3
  > 2
  > 1
  > "pass"
*)