Tja, met een kant-en-klare powerset wordt het wel heel triviaal.Raynman schreef op donderdag 17 december 2015 @ 11:27:
Dag 17 was wel erg kort:
Haskell:
1 main = interact $ show . length . filter ((150 ==) . sum) . subsequences . map read . lines
En deel twee is ook alleen maar een extra filter.
Ik ging in gedachten weer even terug naar 4 vwo en combinatoriek (7 ncr 3
code:
1
2
3
4
5
6
7
8
9
10
| var total = 0;
var n = 20;
for (int r = 1; r <= n; r++)
{
if (r == n)
total += 1;
else
total += fact(n) / (fact(n - r) * fact(r));
} |
Mother north, how can they sleep while their beds are burning?