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

solve 44 in uiua (WIP)

Browse Source
This commit is contained in:
Fredrik Robertsen
2025-09-02 20:22:55 +02:00
parent 742fb1646d
commit b8d781740c
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
44/main.ua Normal file
View File

@@ -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≡/+)