Select Code to Download

1.    fun change (till, 0) = [[]]
2.      |  change ([], amt) = []
...
7.            | allchange (cs::css) = (coin::cs) :: allchange css
8.        in allchange (change (coin::till, amt - coin)) @ change (til
+l, amt)
 9.       end;