solve 53 in uiua
This commit is contained in:
8
53/main.ua
Normal file
8
53/main.ua
Normal file
@@ -0,0 +1,8 @@
|
||||
# project euler 53
|
||||
# n! ? n
|
||||
Fact ← /×+1⇡
|
||||
# nCr ? n r
|
||||
C ← ˜÷⊃(⊙◌Fact|×⊃(⋅Fact|Fact˜-))
|
||||
+1⇡100
|
||||
+1⍚⇡
|
||||
/+≡◇(/+>1e6≡C¤⊸⊣)
|
||||
Reference in New Issue
Block a user