Anonymous user
Partition function P: Difference between revisions
m
→{{header|F_Sharp|F#}}: changed typo to make it runable on TIO.RUN
(Frink) |
m (→{{header|F_Sharp|F#}}: changed typo to make it runable on TIO.RUN) |
||
Line 356:
let N,G=Array.create(g+1) 1I,seq{yield (1I,1);yield! fN 1 3 1 1I}|>Seq.takeWhile(fun(_,n)->n<=g)|>List.ofSeq
seq{2..g}|>Seq.iter(fun p->N.[p]<-G|>List.takeWhile(fun(_,n)->n<=p)|>Seq.fold(fun Σ (n,g)->Σ+n*N.[p-g]) 0I); N.[g]
printfn "666->%A\n\n6666->%A\n\n123456->%A" (pP 666)
</lang>
{{out}}
| |||