Trying out gmp

Fazendaaa · Dec 11, 2024 · 44eca91 · 44eca91
1 parent 1549f6a
commit 44eca91
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 3 deletions.
diff --git a/src/r/Dockerfile b/src/r/Dockerfile
@@ -11,6 +11,7 @@ RUN [ "apk", "add", "--no-cache", \
   "font-liberation", \
   "g++", \
   "gcc", \
+  "gmp-dev", \
   "gfortran", \
   "harfbuzz-dev", \
   "jpeg-dev", \

diff --git a/src/r/R/problem-26.R b/src/r/R/problem-26.R
@@ -26,11 +26,15 @@
 #     *   http://stackoverflow.com/a/8927009/7092954
 #     *   https://zach.se/project-euler-solutions/26/
 
-recurringCycle <- function(number, digits) {
+
+#'
+#' @importFrom gmp pow.bigz
+#'
+recurringCycle <- function(digits) {
   index <- 1
 
   while (index < digits) {
-    if (1 == 10**index %% digits) {
+    if (1 == pow.bigz(10, index) %% digits) {
       return (index)
     }
 
@@ -49,7 +53,7 @@ problem26 <- function(limit) {
   index <- 2
 
   while (index <= limit) {
-    match <- recurringCycle(1, index)
+    match <- recurringCycle(index)
 
     if (match > maxMatch) {
       maxMatch <- match

diff --git a/src/r/renv.lock b/src/r/renv.lock
@@ -764,6 +764,17 @@
       ],
       "Hash": "5899f1eaa825580172bb56c08266f37c"
     },
+    "gmp": {
+      "Package": "gmp",
+      "Version": "0.7-5",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Requirements": [
+        "R",
+        "methods"
+      ],
+      "Hash": "47b774de7ee40f6134cfdeab3fc85df9"
+    },
     "goodpractice": {
       "Package": "goodpractice",
       "Version": "1.0.5",