Reverse

src/Homework1/Homework1.fsproj

@@ -15,6 +15,7 @@
     </PropertyGroup>
     <ItemGroup>
         <Content Include="paket.references" />
+        <Compile Include="ListReverse.fs" />
         <Compile Include="Main.fs" />
     </ItemGroup>
     <Import Project="..\..\.paket\Paket.Restore.targets" />

src/Homework1/ListReverse.fs

@@ -0,0 +1,19 @@
+namespace Homework1
+
+/// <summary>
+/// Module that contains function for list reversing.
+/// </summary>
+module ListReverse =
+    /// <summary>
+    /// Reverse the list.
+    /// </summary>
+    /// <param name="list">List to reverse.</param>
+    let reverse list =
+        let rec reverseRec acc tail =
+            match tail with
+            | [] -> acc
+            | hd :: tl -> reverseRec (hd :: acc) tl
+
+        match list with
+        | [] -> []
+        | list -> reverseRec [] list

tests/Homeworks.Tests/Main.fs

@@ -5,5 +5,4 @@ let allTests = testList "all Tests" []
 
 [<EntryPoint>]
 let main argv =
-    allTests
-    |> runTestsWithCLIArgs [] argv
+    allTests |> runTestsWithCLIArgs [] argv