15 lines
504 B
Text
15 lines
504 B
Text
P ← /×+1˜↙⇡⊙¯ # Simple Perm calc.
|
||
C ← ÷/×+1⇡⤙P # Simple Comb calc.
|
||
# Better version: casts out common factors first.
|
||
C ← (
|
||
AllFactors ← map⊕(⊃⊢⧻)⊸⊛▽⊸>₁/⊂(°/×)
|
||
⊃(+1⇡◌|+1˜↙⇡⊙¯) # Collect numerator, denominator terms.
|
||
⍆◴⊂◡∩(⊙◌°map)∩AllFactors # Identify common factors.
|
||
/×ⁿ⤚(-∩⌞≡⬚0get⊙¤⊙⊙¤) # Cast out, mult
|
||
)
|
||
≡⌞P 12 ↘1⇡12
|
||
≡⌞C 60 ×10↘1⇡6
|
||
|
||
P 105 103
|
||
P 15000 333
|
||
C 900 674
|