From abc3dde246fd75388f5a554b9e894544c5a60525 Mon Sep 17 00:00:00 2001
From: Ahmed Kamal <email.ahmedkamal@googlemail.com>
Date: Wed, 10 Feb 2016 14:33:49 +0200
Subject: [PATCH] revrev one liner implementation

---
 Chapter_04_ex_15.fs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Chapter_04_ex_15.fs b/Chapter_04_ex_15.fs
index d6a6ff0..264d734 100644
--- a/Chapter_04_ex_15.fs
+++ b/Chapter_04_ex_15.fs
@@ -20,6 +20,8 @@ let revrev listOfList =
         | x::xs -> reverseList xs ((reverseInner x [])::reversedList)
     reverseList listOfList []
 
+let revrev2 l = l |> List.rev |> List.map List.rev
+
 test <@ revrev [[1;2;3];[4;5;6]] = [[6;5;4];[3;2;1]] @>
 //
 //let rec reverseInner list reversedList =