solve 62 in uiua (1 minute)

2025-09-21 02:31:58 +02:00
parent c570de0f69
commit 8995b69804
1 changed files with 8 additions and 0 deletions
--- a/62/main.ua
+++ b/62/main.ua
@@ -0,0 +1,8 @@
+# project euler 62
+# [all cube permutations smaller than cube] ? cube
+Chain ← ▽⤚≡⌟(≍⍆⊥10)⊙(⍆⊥10)⊸(
+  ▽⤚≡(≤⧻⊥10) ⊙(⧻⊥10)⊸⍜°ⁿ₃(⇡⌈)
+)
+
+⍢+₁(<4⧻Chainⁿ3) 1
+⊢Chainⁿ3