RosettaCodeData/Task/Partition-function-P/Uiua/partition-function-p.uiua

6 lines
180 B
Text
Raw Permalink Normal View History

2026-04-30 12:34:36 -04:00
P ← |1 memo(
Terms ← ⊂1+1\+♭⍉˜⊟+1⊸×2↘1⇡20
⨬(⨬(/+ ≡(P-) Terms¤|1)⊸=₁|0)⊸≤₀
)
P69 # Bigger results look like they've already lost precision.