From 2e8280dc93ebcd3b5c2fa297ac5d0462f3a70094 Mon Sep 17 00:00:00 2001
From: Jasper
Date: Fri, 3 Apr 2026 14:14:20 +0200
Subject: Initial commit

---
 rsa.f90 | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 rsa.f90

(limited to 'rsa.f90')

diff --git a/rsa.f90 b/rsa.f90
new file mode 100644
index 0000000..d982335
--- /dev/null
+++ b/rsa.f90
@@ -0,0 +1,26 @@
+program rsa
+  implicit none
+  integer :: n, m
+
+  print *, "Enter numbers to compute gcd:"
+  read(*,*) n, m
+
+  print *, "gcd: ", gcd(n,m)
+
+  contains
+
+    recursive function gcd(n,m) result(x)
+      implicit none
+      integer, intent(in) :: n,m
+      integer :: x
+
+      if (n == 0) then
+        x = m
+      else if (m == 0) then
+        x = n
+      else
+        x = gcd(m, mod(n,m))
+      end if
+    end function gcd
+
+end program rsa
-- 
cgit v1.2.3