From f2fda0cc88675f64d589aaf3da9988b798734c05 Mon Sep 17 00:00:00 2001 From: Hogosha <77451110+Hogosha42@users.noreply.github.com> Date: Mon, 1 Aug 2022 15:57:07 +0200 Subject: [PATCH 1/5] update Fibonacci.fs added a function to get the nth Fibonacci number. --- Algorithms/Math/Fibonacci.fs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Algorithms/Math/Fibonacci.fs b/Algorithms/Math/Fibonacci.fs index 1fb284a..32e8682 100644 --- a/Algorithms/Math/Fibonacci.fs +++ b/Algorithms/Math/Fibonacci.fs @@ -1,7 +1,13 @@ -namespace Algorithms.Math +namespace Algorithms.Math module Fibonacci = let rec PrintSerie (one: int) (two: int) = let fibo = one + two System.Console.WriteLine fibo - PrintSerie two fibo \ No newline at end of file + PrintSerie two fibo + + let rec NthFibonacci (n: int): int = + match n with + | 0 -> 0 + | 1 -> 1 + | n -> NthFibonacci (n-1) + NthFibonacci (n-2) From fdd8f36aaa5a9657cacdda40f3fe0fc4f5862a96 Mon Sep 17 00:00:00 2001 From: Hogosha <77451110+Hogosha42@users.noreply.github.com> Date: Mon, 1 Aug 2022 16:09:16 +0200 Subject: [PATCH 2/5] update readme.md --- README.md | 1 + 1 file changed, 1 insertion(+) diff --git a/README.md b/README.md index d03ca7b..7bd7b8c 100644 --- a/README.md +++ b/README.md @@ -11,6 +11,7 @@ This repository contains algorithms and data structures implemented in F# for ed + [Abs Minimum](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/AbsMin.fs) + [Factorial](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Factorial.fs) + [Fibonacci](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Fibonacci.fs) + + [Greatest Common Divisor](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/GreatestCommonDivisor.fs) + [Perfect Numbers](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Perfect_Numbers.fs) + [Power](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Power.fs) + [Search](https://github.com/TheAlgorithms/F-Sharp/tree/main/Algorithms/Search) From 4de2ca1379909d59546b33b54ce558e417408f09 Mon Sep 17 00:00:00 2001 From: Hogosha <77451110+Hogosha42@users.noreply.github.com> Date: Mon, 1 Aug 2022 16:10:18 +0200 Subject: [PATCH 3/5] update readme.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index 7bd7b8c..7f0faf1 100644 --- a/README.md +++ b/README.md @@ -11,7 +11,7 @@ This repository contains algorithms and data structures implemented in F# for ed + [Abs Minimum](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/AbsMin.fs) + [Factorial](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Factorial.fs) + [Fibonacci](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Fibonacci.fs) - + [Greatest Common Divisor](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/GreatestCommonDivisor.fs) + + [Greatest Common Divisor](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Greatest_Common_Divisor.fs) + [Perfect Numbers](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Perfect_Numbers.fs) + [Power](https://github.com/TheAlgorithms/F-Sharp/blob/main/Algorithms/Math/Power.fs) + [Search](https://github.com/TheAlgorithms/F-Sharp/tree/main/Algorithms/Search) From 0ce9d405227e95e911670990cbe51be6699646d2 Mon Sep 17 00:00:00 2001 From: Hogosha <77451110+Hogosha42@users.noreply.github.com> Date: Mon, 1 Aug 2022 16:15:24 +0200 Subject: [PATCH 4/5] create new file create algorithm to calculate greatest common divisor. --- Algorithms/Math/Greatest_Common_Divisor.fs | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 Algorithms/Math/Greatest_Common_Divisor.fs diff --git a/Algorithms/Math/Greatest_Common_Divisor.fs b/Algorithms/Math/Greatest_Common_Divisor.fs new file mode 100644 index 0000000..91cf8f0 --- /dev/null +++ b/Algorithms/Math/Greatest_Common_Divisor.fs @@ -0,0 +1,7 @@ +namespace Algorithms.Math + +module GreatestCommonDivisor = + let rec gcd (m: int) (n: int): int = + match m,n with + | 0,n -> n + | m,n -> gcd (n % m) m From ce5907c858a0dff689741e8340ed3985421648f4 Mon Sep 17 00:00:00 2001 From: Hogosha <77451110+Hogosha42@users.noreply.github.com> Date: Mon, 1 Aug 2022 16:16:24 +0200 Subject: [PATCH 5/5] Rename PerfectNumbers.fs to Perfect_Numbers.fs --- Algorithms/Math/{PerfectNumbers.fs => Perfect_Numbers.fs} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename Algorithms/Math/{PerfectNumbers.fs => Perfect_Numbers.fs} (100%) diff --git a/Algorithms/Math/PerfectNumbers.fs b/Algorithms/Math/Perfect_Numbers.fs similarity index 100% rename from Algorithms/Math/PerfectNumbers.fs rename to Algorithms/Math/Perfect_Numbers.fs