Data commit

Task/Classes/F-Sharp/classes-1.fs

@@ -0,0 +1,9 @@
+type MyClass(init) =      // constructor with one argument: init
+  let mutable var = init  // a private instance variable
+  member x.Method() =     // a simple method
+    var <- var + 1
+    printfn "%d" var
+
+// create an instance and use it
+let myObject = new MyClass(42)
+myObject.Method()

Task/Classes/F-Sharp/classes-2.fs

@@ -0,0 +1,15 @@
+open System
+
+type Shape =
+  abstract Perimeter: unit -> float
+  abstract Area: unit -> float
+
+type Circle(radius) =
+  interface Shape with
+    member x.Perimeter() = 2.0 * radius * Math.PI
+    member x.Area() = Math.PI * radius**2.0
+
+type Rectangle(width, height) =
+  interface Shape with
+    member x.Perimeter() = 2.0 * width + 2.0 * height
+    member x.Area() = width * height