solve 92 in uiua (10 sec)

2025-10-07 07:09:14 +02:00
parent a85d7449e2
commit f4f8a9fb3f
1 changed files with 7 additions and 0 deletions
--- a/92/main.ua
+++ b/92/main.ua
@@ -0,0 +1,7 @@
+# next number in chain
+N ← /+⍉°√⊥10
+
+⍜-⇡1 1e7
+⍥N10       # the longest 1-chain is less than 10
+-⊙1e7 ⧻⊚=1 # count 1s to subtract from 1e7
+-1         # there are 999999 nums, because no 0