solve 36 in uiua (slowish)

2025-09-07 10:45:01 +02:00
parent 00805bbcf8
commit 99a8ea26ff
1 changed files with 7 additions and 0 deletions
--- a/36/main.ua
+++ b/36/main.ua
@@ -0,0 +1,7 @@
+# project euler 36
+
+# check if palindromic in base 10 and 2
+c ← ↧∩(≍⊸⇌) ⊃⊥₁₀⋯
+⍤⤙≍ 1 c 585
+
+/+⊚≡c⇡1e6