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