Вычисление НОД

2022-05-12 19:16:57 +03:00
parent d867691dd6
commit 949cfc5a23
2 changed files with 14 additions and 0 deletions
--- a/Влад/NOD.rkt
+++ b/Влад/NOD.rkt
@@ -0,0 +1,8 @@
+(define (gcd x y)
+    (if (= y 0)
+        x
+        (gcd y (modulo x y))
+    )
+)
+
+(writeln (gcd 999 33))