From 527bc4762f9c66c9244f0ac1fbee6357478ac9ef Mon Sep 17 00:00:00 2001
From: HJ <thechairman@thechairman.info>
Date: Thu, 9 Dec 2021 18:05:04 -0500
Subject: putting all my solutions together in 1 repository

---
 2015/day-25/day-25.rkt | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 2015/day-25/day-25.rkt

(limited to '2015/day-25')

diff --git a/2015/day-25/day-25.rkt b/2015/day-25/day-25.rkt
new file mode 100644
index 0000000..786538c
--- /dev/null
+++ b/2015/day-25/day-25.rkt
@@ -0,0 +1,16 @@
+#lang racket
+
+(define max-r 2978)
+(define max-c 3083)
+
+(for/fold ([code 20151125]
+           [r 1]
+           [c 1])
+          ([i (in-naturals)]
+           #:break (and (= max-r r)
+                        (= max-c c)))
+  (define new-code
+    (modulo (* code 252533) 33554393))
+  (if (= r 1)
+      (values new-code (add1 c) 1)
+      (values new-code (sub1 r) (add1 c))))
-- 
cgit v1.2.3