Add the rev_append function

Signed-off-by: Olivier Gayot <olivier.gayot@sigexec.com>

1 files changed, 4 insertions, 0 deletions

diff --git a/my_list.mli b/my_list.mli
index 9229064..72535d5 100644
--- a/my_list.mli
+++ b/my_list.mli
@@ -66,3 +66,7 @@ let rec append l1 l2 =
     match l1 with
     | Item(hd, tl) -> Item(hd, (append tl l2))
     | None -> l2
+
+(** Return a list which results in the concatenation of reversed l1 and l2. *)
+let rev_append l1 l2 =
+    append (rev l1) l2