solve 53 in uiua

This commit is contained in:
2025-09-06 18:29:41 +02:00
parent d1c737a458
commit 999257551f

8
53/main.ua Normal file
View File

@@ -0,0 +1,8 @@
# project euler 53
# n! ? n
Fact ← /×+1⇡
# nCr ? n r
C ← ˜÷⊃(⊙◌Fact|×⊃(⋅Fact|Fact˜-))
+1⇡100
+1⍚⇡
/+≡◇(/+>1e6≡C¤⊸⊣)