Jump to content

Count the coins: Difference between revisions

Count the coins (view source)

Revision as of 22:55, 24 August 2020

26 bytes removed ,  3 years ago
→‎{{header|ALGOL 68}}
(Added more efficient version, also inspired by a Haskell version)
Line 215:
INT denom = denoms[i];
FOR j FROM 0 TO amount DO new counts[j] := 0 OD;
FOR kj FROM 0 TO amount DO
IF LONG INT count = counts[kj]; count > 0 THEN
FOR lk FROM kj + denom BY denom TO amount DO
new counts[lk] +:= count
OD
FI;
OD; counts[j] +:= new counts[j]
OD
FOR j FROM 0 TO amount DO counts[j] +:= new counts[j] OD
OD;
counts[amount]
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/204098"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information