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

solve 33 in uiua (fast)

Browse Source
This commit is contained in:
Fredrik Robertsen
2025-10-04 03:21:52 +02:00
parent 6500d81f41
commit f7af716e7e
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
33/main.ua Normal file
View File

@@ -0,0 +1,10 @@
# Experimental!
# project euler 33
/÷⍉ ⧅>2 +1⇡9 # single digit fractions
⧅>2 +10⇡90 # combinations 10-100
▽⤚(˜∊/÷⍉) # fractions that simplify
▽⊸≡/(=3⧻◴⊂∩⊥₁₀) # fractions that cancel
Magic ← =⊙÷◡(/÷⊡⊣⊚¬⊙⍉⊙⊟:↻⊙:/↥◡(∩⌟=⊸↻1)∩⊥₁₀)
▽⊸≡/Magic
▽⊸≡/(¬↥∩/↥∩=₀∩⊥₁₀) # non-trivial
⊢÷⊸/∨ /× # reduce the fraction