frero/project_euler
0
1
Fork 0
Code Issues Pull Requests Releases Activity

wip 66 in uiua

Browse Source
This commit is contained in:
Fredrik Robertsen
2025-09-25 09:48:17 +02:00
parent cbdb6a2261
commit 596aedabc9
2 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
66/main.ua Normal file
View File

@@ -0,0 +1,22 @@
# Experimental!
# ? x y D
F ← =1˜-⊙×∩°√
⍤⤙≍ 1 F 9 4 5
D ← ▽⊸(≠⟜⌊√)+1⇡29
y ← +1⍚⇡ ⌈×2°√/↥D
x ← ⍚(˜↯1)≡◇⧻ y
Iter ← (
◡F
⊸(=1/↥≡◇/↥)
⨬(◌
| ⊙⊟₄⊸(≡◇˜∊1)
⧋↘₁∩°□⊃⊢⊣ ⧋⊕□
⊙(⊂≡◇(⊂⊙¤⧋▽⊙(∩≡°□⊃↘↙¯1)°□⊃⊢↘₁))
⊙⊙≡°□⧋°⊟₃
)
)
# Iter x y D []
◌◌◌⍢(+1Iter|>0⋅⋅⧻) x y D []
⊢°¤⧋⊢⤸2 ?

6
66/test.ua Normal file
View File

@@ -0,0 +1,6 @@
# Experimental!
# ? x y D
F ← =1˜-⊙×∩°√
◴≡(⇌⍆) ♭₂ wait pool⊞⊟ ∩+₁⊃⇡(⇡×29) 1000
≡˜⊂¤29
▽⊸(F≡°⊟₃)