From b8d781740c53f2b686970d5a20f842961d3201f5 Mon Sep 17 00:00:00 2001 From: Fredrik Robertsen Date: Tue, 2 Sep 2025 20:22:55 +0200 Subject: [PATCH] solve 44 in uiua (WIP) --- 44/main.ua | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 44/main.ua diff --git a/44/main.ua b/44/main.ua new file mode 100644 index 0000000..40df448 --- /dev/null +++ b/44/main.ua @@ -0,0 +1,10 @@ +# Experimental! +# project euler 44 +p ← ÷2×⊸(-1×3) +c ← =0-⊸⌊°p +# ⧈₂/(↧∩c⊃+-) p +1⇡100 +# ⍢+₁/(¬↥∩c⊃+-∩p) 1_2 +# &p⟜/-p +⌊▽⊸(c∂p) +1.5⇡100000000 +≡(p⊂⟜+₁) +▽⊸(c≡/+)