From ece916c752b6ca234fd800f288c4acb21bde4c5f Mon Sep 17 00:00:00 2001 From: fredrikr79 Date: Sat, 4 Oct 2025 08:44:49 +0200 Subject: [PATCH] solve 45 in uiua (FAST) --- 45/main.ua | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 45/main.ua diff --git a/45/main.ua b/45/main.ua new file mode 100644 index 0000000..9fd9b69 --- /dev/null +++ b/45/main.ua @@ -0,0 +1,12 @@ +# project euler 45 + +T ← ÷2×⊸+₁ +P ← ÷2×⊸(-1×3) +H ← ×⊸(-1×2) + +Is! ← =⟜⌊°^ + ++1⇡100000 +⊃⊃T P H # get some numbers ++1⊚(↧∩⌞˜∊) # for all T, see if in P and H +T⊣ # get third such trinum