diff --git a/33/main.ua b/33/main.ua new file mode 100644 index 0000000..d7aab4a --- /dev/null +++ b/33/main.ua @@ -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