trackler 2.2.1.98 → 2.2.1.99

data/tracks/fsharp/exercises/complex-numbers/ComplexNumbers.fs

@@ -0,0 +1,21 @@
+module ComplexNumbers
+
+let create real imaginary = failwith "You need to implement this function."
+
+let mul z1 z2 = failwith "You need to implement this function."
+
+let add z1 z2 = failwith "You need to implement this function."
+
+let sub z1 z2 = failwith "You need to implement this function."
+
+let div z1 z2 = failwith "You need to implement this function."
+
+let abs z = failwith "You need to implement this function."
+
+let conjugate z = failwith "You need to implement this function."
+
+let real z = failwith "You need to implement this function."
+
+let imaginary z = failwith "You need to implement this function."
+
+let exp z = failwith "You need to implement this function."

data/tracks/fsharp/exercises/complex-numbers/ComplexNumbers.fsproj

@@ -0,0 +1,23 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netcoreapp2.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="ComplexNumbers.fs" />
+    <Compile Include="ComplexNumbersTest.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
+    <PackageReference Include="xunit" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
+    <PackageReference Include="FsUnit.xUnit" Version="3.0.0" />
+    <DotNetCliToolReference Include="dotnet-xunit" Version="2.3.1" />
+  </ItemGroup>
+
+</Project>

data/tracks/fsharp/exercises/complex-numbers/ComplexNumbersTest.fs

@@ -0,0 +1,168 @@
+// This file was auto-generated based on version 1.0.0 of the canonical data.
+
+module ComplexNumbersTest
+
+open FsUnit.Xunit
+open Xunit
+open System
+
+open ComplexNumbers
+
+[<Fact>]
+let ``Imaginary unit`` () =
+    let sut = mul (create 0.0 1.0) (create 0.0 1.0)
+    real sut |> should (equalWithin 0.000000001) -1.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Add purely real numbers`` () =
+    let sut = add (create 1.0 0.0) (create 2.0 0.0)
+    real sut |> should (equalWithin 0.000000001) 3.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Add purely imaginary numbers`` () =
+    let sut = add (create 0.0 1.0) (create 0.0 2.0)
+    real sut |> should (equalWithin 0.000000001) 0.0
+    imaginary sut |> should (equalWithin 0.000000001) 3.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Add numbers with real and imaginary part`` () =
+    let sut = add (create 1.0 2.0) (create 3.0 4.0)
+    real sut |> should (equalWithin 0.000000001) 4.0
+    imaginary sut |> should (equalWithin 0.000000001) 6.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Subtract purely real numbers`` () =
+    let sut = sub (create 1.0 0.0) (create 2.0 0.0)
+    real sut |> should (equalWithin 0.000000001) -1.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Subtract purely imaginary numbers`` () =
+    let sut = sub (create 0.0 1.0) (create 0.0 2.0)
+    real sut |> should (equalWithin 0.000000001) 0.0
+    imaginary sut |> should (equalWithin 0.000000001) -1.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Subtract numbers with real and imaginary part`` () =
+    let sut = sub (create 1.0 2.0) (create 3.0 4.0)
+    real sut |> should (equalWithin 0.000000001) -2.0
+    imaginary sut |> should (equalWithin 0.000000001) -2.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Multiply purely real numbers`` () =
+    let sut = mul (create 1.0 0.0) (create 2.0 0.0)
+    real sut |> should (equalWithin 0.000000001) 2.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Multiply purely imaginary numbers`` () =
+    let sut = mul (create 0.0 1.0) (create 0.0 2.0)
+    real sut |> should (equalWithin 0.000000001) -2.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Multiply numbers with real and imaginary part`` () =
+    let sut = mul (create 1.0 2.0) (create 3.0 4.0)
+    real sut |> should (equalWithin 0.000000001) -5.0
+    imaginary sut |> should (equalWithin 0.000000001) 10.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Divide purely real numbers`` () =
+    let sut = div (create 1.0 0.0) (create 2.0 0.0)
+    real sut |> should (equalWithin 0.000000001) 0.5
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Divide purely imaginary numbers`` () =
+    let sut = div (create 0.0 1.0) (create 0.0 2.0)
+    real sut |> should (equalWithin 0.000000001) 0.5
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Divide numbers with real and imaginary part`` () =
+    let sut = div (create 1.0 2.0) (create 3.0 4.0)
+    real sut |> should (equalWithin 0.000000001) 0.44
+    imaginary sut |> should (equalWithin 0.000000001) 0.08
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Absolute value of a positive purely real number`` () =
+    abs (create 5.0 0.0) |> should equal 5.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Absolute value of a negative purely real number`` () =
+    abs (create -5.0 0.0) |> should equal 5.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Absolute value of a purely imaginary number with positive imaginary part`` () =
+    abs (create 0.0 5.0) |> should equal 5.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Absolute value of a purely imaginary number with negative imaginary part`` () =
+    abs (create 0.0 -5.0) |> should equal 5.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Absolute value of a number with real and imaginary part`` () =
+    abs (create 3.0 4.0) |> should equal 5.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Conjugate a purely real number`` () =
+    let sut = conjugate (create 5.0 0.0)
+    real sut |> should (equalWithin 0.000000001) 5.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Conjugate a purely imaginary number`` () =
+    let sut = conjugate (create 0.0 5.0)
+    real sut |> should (equalWithin 0.000000001) 0.0
+    imaginary sut |> should (equalWithin 0.000000001) -5.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Conjugate a number with real and imaginary part`` () =
+    let sut = conjugate (create 1.0 1.0)
+    real sut |> should (equalWithin 0.000000001) 1.0
+    imaginary sut |> should (equalWithin 0.000000001) -1.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Real part of a purely real number`` () =
+    real (create 1.0 0.0) |> should equal 1.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Real part of a purely imaginary number`` () =
+    real (create 0.0 1.0) |> should equal 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Real part of a number with real and imaginary part`` () =
+    real (create 1.0 2.0) |> should equal 1.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Imaginary part of a purely real number`` () =
+    imaginary (create 1.0 0.0) |> should equal 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Imaginary part of a purely imaginary number`` () =
+    imaginary (create 0.0 1.0) |> should equal 1.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Imaginary part of a number with real and imaginary part`` () =
+    imaginary (create 1.0 2.0) |> should equal 2.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Euler's identity/formula`` () =
+    let sut = exp (create 0.0 Math.PI)
+    real sut |> should (equalWithin 0.000000001) -1.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Exponential of 0`` () =
+    let sut = exp (create 0.0 0.0)
+    real sut |> should (equalWithin 0.000000001) 1.0
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+
+[<Fact(Skip = "Remove to run test")>]
+let ``Exponential of a purely real number`` () =
+    let sut = exp (create 1.0 0.0)
+    real sut |> should (equalWithin 0.000000001) Math.E
+    imaginary sut |> should (equalWithin 0.000000001) 0.0
+

data/tracks/fsharp/exercises/complex-numbers/Example.fs

@@ -0,0 +1,27 @@
+module ComplexNumbers
+
+open System
+
+type ComplexNumber = { real: float; imaginary: float }
+
+let create real imaginary = { real = real; imaginary = imaginary }
+
+let mul z1 z2 = { real = z1.real * z2.real - z1.imaginary * z2.imaginary; imaginary = z1.imaginary * z2.real + z1.real * z2.imaginary }
+
+let add z1 z2 = { real = z1.real + z2.real; imaginary = z1.imaginary + z2.imaginary }
+
+let sub z1 z2 = { real = z1.real - z2.real; imaginary = z1.imaginary - z2.imaginary }
+
+let div z1 z2 = 
+    { real = (z1.real * z2.real + z1.imaginary * z2.imaginary) / (Math.Pow(z2.real, 2.0) + Math.Pow(z2.imaginary, 2.0))
+      imaginary = (z1.imaginary * z2.real - z1.real * z2.imaginary) / (Math.Pow(z2.real, 2.0) + Math.Pow(z2.imaginary, 2.0)) }
+
+let abs z = Math.Sqrt(Math.Pow(z.real, 2.0) + Math.Pow(z.imaginary, 2.0))
+
+let conjugate z = { z with imaginary = -z.imaginary }
+
+let real z = z.real
+
+let imaginary z = z.imaginary
+
+let exp z = { real = Math.Cos(z.imaginary) * Math.Exp(z.real); imaginary = Math.Sin(z.imaginary) * Math.Exp(z.real) }

data/tracks/fsharp/exercises/complex-numbers/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

data/tracks/fsharp/exercises/complex-numbers/README.md

@@ -0,0 +1,35 @@
+# Complex numbers
+
+A complex number is a number in the form `a + b * i` where `a` and `b` are real and `i` satisfies `i^2 = -1`.
+
+`a` is called the real part and `b` is called the imaginary part of `z`.
+The conjugate of the number `a + b * i` is the number `a - b * i`.
+The absolute value of a complex number `z = a + b * i` is a real number `|z| = sqrt(a^2 + b^2)`. The square of the absolute value `|z|^2` is the result of multiplication of `z` by its complex conjugate.
+
+The sum/difference of two complex numbers involves adding/subtracting their real and imaginary parts separately:
+`(a + i * b) + (c + i * d) = (a + c) + (b + d) * i`,
+`(a + i * b) - (c + i * d) = (a - c) + (b - d) * i`.
+
+Multiplication result is by definition
+`(a + i * b) * (c + i * d) = (a * c - b * d) + (b * c + a * d) * i`.
+
+The reciprocal of a non-zero complex number is
+`1 / (a + i * b) = a/(a^2 + b^2) - b/(a^2 + b^2) * i`.
+
+Dividing a complex number `a + i * b` by another `c + i * d` gives:
+`(a + i * b) / (c + i * d) = (a * c + b * d)/(c^2 + d^2) + (b * c - a * d)/(c^2 + d^2) * i`.
+
+Exponent of a complex number can be expressed as
+`exp(a + i * b) = exp(a) * exp(i * b)`,
+and the last term is given by Euler's formula `exp(i * b) = cos(b) + i * sin(b)`.
+
+
+Implement the following operations:
+ - addition, subtraction, multiplication and division of two complex numbers,
+ - conjugate, absolute value, exponent of a given complex number.
+
+
+Assume the programming language you are using does not have an implementation of complex numbers.
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/fsharp/exercises/diamond/DiamondTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module DiamondTest
 
 open Diamond

data/tracks/fsharp/exercises/diffie-hellman/DiffieHellmanTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module DiffieHellmanTest
 
 open System.Numerics

data/tracks/fsharp/exercises/dot-dsl/DotDslTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module DotDslTest
 
 open Xunit

data/tracks/fsharp/exercises/error-handling/ErrorHandlingTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module ErrorHandlingTest
 
 open Xunit

data/tracks/fsharp/exercises/go-counting/GoCountingTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module GoCountingTest
 
 open System

data/tracks/fsharp/exercises/grade-school/GradeSchoolTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module GradeSchoolTest
 
 open Xunit

data/tracks/fsharp/exercises/hangman/HangmanTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module HangmanTest
 
 open Xunit

data/tracks/fsharp/exercises/hexadecimal/HexadecimalTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module HexadecimalTest
 
 open FsUnit.Xunit

data/tracks/fsharp/exercises/ledger/LedgerTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module LedgerTest
 
 open Xunit

data/tracks/fsharp/exercises/lens-person/LensPersonTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module LensPersonTest
 
 open System

data/tracks/fsharp/exercises/linked-list/LinkedListTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module LinkedListTest
 
 open Xunit

data/tracks/fsharp/exercises/matrix/MatrixTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module MatrixTest
 
 open Xunit

data/tracks/fsharp/exercises/octal/OctalTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module OctalTest
 
 open FsUnit.Xunit

data/tracks/fsharp/exercises/parallel-letter-frequency/ParallelLetterFrequencyTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module ParallelLetterFrequencyTest
 
 open Xunit

data/tracks/fsharp/exercises/pov/PovTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module PovTest
 
 open Xunit

data/tracks/fsharp/exercises/protein-translation/ProteinTranslationTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module ProteinTranslationTest
 
 open Xunit

data/tracks/fsharp/exercises/pythagorean-triplet/PythagoreanTripletTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module PythagoreanTripletTest
 
 open Xunit

data/tracks/fsharp/exercises/robot-name/RobotNameTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module RobotNameTest
 
 open Xunit

data/tracks/fsharp/exercises/saddle-points/SaddlePointsTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module SaddlePointTest
 
 open Xunit

data/tracks/fsharp/exercises/say/SayTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module SayTest
 
 open Xunit

data/tracks/fsharp/exercises/scale-generator/ScaleGeneratorTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module ScaleGeneratorTest
 
 open Xunit

data/tracks/fsharp/exercises/secret-handshake/SecretHandshakeTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module SecretHandshakeTest
 
 open Xunit

data/tracks/fsharp/exercises/series/SeriesTest.fs

@@ -1,3 +1,5 @@
+// This file was created manually and its version is 1.0.0.
+
 module SeriesTest
 
 open System