計算機科学のブログ

Building Abstractions with Data - Hierarchical Data and the Closure Property - Representing Sequences - List operations - coins, change-counting program

Structure and Interpretation of Computer Programs: JavaScript Edition(Harold Abelson(著)、Gerald Jay Sussman(著)、Julie Sussman(著)、The MIT Press)のChapter 2(Building Abstractions with Data)、2.2(Hierarchical Data and the Closure Property)、2.2.1(Representing Sequences)、List operations、Exercise 2.19の解答を求めてみる。

場合分けに影響はないから、coin valuesのリストの順番は結果に影響はない。

実際に確認。

コード

function display(x) {
    return console.log(x);
}
function stringfy(x) {
    return x.toString();
}
function pair(x, y) {
    return [x, y];
}
function head(z) {
    return z[0];
}
function tail(z) {
    return z[1];
}
function list(...args) {
    return args.length === 0 ?
        null :
        pair(args[0], list(...args.slice(1)));
}
function is_null(x) {
    return x === null;
}
function reverse(l) {
    function iter(l, r) {
        return is_null(l) ?
            r :
            iter(tail(l), pair(head(l), r));
    }
    return iter(l, null);
}
function no_more(coin_values) {
    return is_null(coin_values);
}
function except_first_denomination(coin_values) {
    return tail(coin_values);
}
function first_denomination(coin_values) {
    return head(coin_values);
}
function cc(amount, coin_values) {
    return amount === 0 ?
        1 :
        amount < 0 || no_more(coin_values) ?
            0 :
            cc(amount, except_first_denomination(coin_values)) +
            cc(amount - first_denomination(coin_values), coin_values);
}
const us_coins = list(50, 25, 10, 5, 1);
const uk_coins = list(100, 50, 20, 10, 5, 2, 1);

display(cc(100, us_coins));
display(cc(100, reverse(us_coins)));
display(cc(100, list(50, 1, 25, 5, 10)));
display(cc(100, list(1, 50, 5, 25, 10)));

display(cc(100, uk_coins));
display(cc(100, reverse(uk_coins)));

入出力結果(Terminal, Zsh)

% node answer2.19.js
292
292
292
292
4563
4563
%