game-of-life.js

(function($) {

function checked_get_list(context, output_to_coordinate) {
    return _.map($('.x:checked', context), function(item) {
        return output_to_coordinate ?
            item_to_coordinates($(item))
            : $(item)
    })
}

function coordinates_to_item(context, coordinates) {
    return $('.x' + coordinates[0] + 'y' + coordinates[1], context)
}

function item_to_coordinates(item) {
    return [item.data('x'), item.data('y')]
}

function item_is_prechecked(x_index, y_index, settings) {
    return _.filter(
        settings.init,
        function(coordinates) {
            return coordinates[0] == x_index
                && coordinates[1] == y_index }).length > 0
}

function coordinates_get_random(settings) {
    return [_.sample(_.range(settings.width)),
        _.sample(_.range(settings.height))]
}

function board_build(context, settings, x_builder, y_builder) {
    return $(document.createElement('div'))
        .addClass('game-grid')
        .append(
            _.map(_.range(settings.height),
            function(y_index) {
                return y_builder(y_index)
                    .append(
                        _.map(_.range(settings.width),
                        function(x_index) {
                            return x_builder(x_index, y_index)
                        }))
            }))
}

function control_build(settings, builders) {
    return $(document.createElement('div'))
        .addClass('game-of-life-control-panel')
        .append(_.map(builders, function(builder) {
            return builder()
        }))
}

function neighbours_get_all(context, settings, coordinates) {
    return _.groupBy(
        _.filter(
                neighbours_get_candidates(coordinates),
                function(coordinates) {
                    return coordinates[0] >= 0
                        && coordinates[0] < settings.width
                        && coordinates[1] >= 0
                        && coordinates[1] < settings.height
                }),
        function(item) {
            return coordinates_to_item(context, item).prop('checked')
        })
}

function neighbours_get_candidates(coordinates) {
    return [[coordinates[0] - 1, coordinates[1] - 1],
            [coordinates[0] - 1, coordinates[1]],
            [coordinates[0] - 1, coordinates[1] + 1],

            [coordinates[0], coordinates[1] + 1],
            [coordinates[0], coordinates[1] - 1],

            [coordinates[0] + 1, coordinates[1] - 1],
            [coordinates[0] + 1, coordinates[1]],
            [coordinates[0] + 1, coordinates[1] + 1]]
}

function evolve_get_processor(context, settings) {
    return function() {
        var changes = _.reduce(
                checked_get_list(context, true),
                function(result, incoming) {
                    var neighbours = neighbours_get_all(context, settings, incoming)

                    return _.map(
                        _.zip(
                            result,
                            item_reduce_live(incoming, neighbours[true]),
                            neighbours_reduce_die(context, neighbours[false], settings)
                        ),
                        function(item) {
                            return _.union.apply(_, item)
                        })
                },
                [[], []])

        $.each(changes[0], function() { item_check(coordinates_to_item(context, this), false) })
        $.each(changes[1], function() { item_check(coordinates_to_item(context, this), true) })
    }
}

function item_check(item, status) {
    item.prop('checked', status)
        .parent('label')
        .removeClass('x-live x-dead')
        .addClass(item.prop('checked') ? 'x-live' : 'x-dead')
}

function item_reduce_live(item, neighbours_checked) {
    return evolve_check_live(neighbours_checked) ?
        [[], [item]]
        : [[item], []]
}

function neighbours_reduce_die(context, neighbours_unchecked, settings) {
    return [[], _.filter(
        neighbours_unchecked,
        function(item) {
            var neighbours = neighbours_get_all(context, settings, item)

            return evolve_check_die(neighbours[true])
        })]
}

function item_reduce_die(item, neighbours_checked) {
    return evolve_check_die(neighbours_checked) ?
        [[], [item]]
        : [[item], []]
}

function evolve_check_live(neighbours_checked) {
    return neighbours_checked == undefined ?
        false
        : (neighbours_checked.length >= 2 && neighbours_checked.length <= 3)
}

function evolve_check_die(neighbours_checked) {
    return neighbours_checked == undefined ?
        false
        : neighbours_checked.length == 3
}

function evolve_get_builder(context, settings) {
    return function() {
        return control_builder(settings, 'Evolve', 'evolve')
            .addClass('non-timer')
            .click(evolve_get_processor(context, settings))
    }
}

function random_get_builder(context, settings) {
    return function() {
        return control_builder(settings, 'Randomize', 'random')
            .addClass('non-timer')
            .click(function() {
                $('.game-grid .x', context)
                    .prop('checked', false)
                    .parent()
                    .removeClass('x-live x-dead')
                    .addClass('x-dead')

                $.each(
                    _.range(_.sample(_.range(5, settings.width * settings.height))),
                    function() {
                        coordinates_to_item(context, coordinates_get_random(settings))
                            .parent('label')
                            .click()
                    })
            })
    }
}

function clear_get_builder(context, settings) {
    return function() {
        return control_builder(settings, 'Clear', 'clear')
            .addClass('non-timer')
            .click(function() {
                $('.game-grid .x', context)
                    .prop('checked', false)
                    .parent('label')
                    .removeClass('x-live x-dead')
                    .addClass('x-dead')
            })
    }
}

function auto_get_builder(context, settings) {
    return function() {
        return control_builder(settings, 'Automatic', 'auto')
            .data('interval', false)
            .click(function() {
                var item = $(this)

                if(item.data('interval') === false) {
                    $('.non-timer', context).prop('disabled', true)

                    item.data('interval', 'foo')
                        .data(
                            'interval',
                            setInterval(
                                function() {
                                    var action = evolve_get_processor(context, settings)

                                    action()
                                },
                                250))
                        .text('Stop')
                } else {
                    $('.non-timer', context).prop('disabled', false)

                    clearInterval(item.data('interval'))
                    item.data('interval', false)
                        .text('Automatic')
                }
            })
    }
}

function reset_get_builder(context, settings) {
    return function() {
        return control_builder(settings, 'Reset', 'reset')
            .addClass('non-timer')
            .click(function() {
                $('.game-grid .x', context)
                    .prop('checked', false)
                    .parent('label')
                    .removeClass('x-live x-dead')
                    .addClass('x-dead')

                $.each(
                    settings.init,
                    function() {
                        item_check(coordinates_to_item(context, this), true)
                    })
            })
    }
}

function control_builder(settings, caption, id) {
    return $(document.createElement('button'))
        .addClass(id)
        .text(caption)
}

function x_get_builder(settings) {
    return function(x_index, y_index) {
        return $(document.createElement('label'))
            .append(
                $(document.createElement('input'))
                    .attr('type', 'checkbox')
                    .addClass('x')
                    .addClass('x' + x_index + 'y' + y_index)
                    .data('x', x_index)
                    .data('y', y_index)
                    .prop('checked', item_is_prechecked(x_index, y_index, settings))
                    .prop('disabled', settings.disabled))
                    .change(function() {
                        $(this).removeClass('x-live x-dead')
                            .addClass($('input', this).prop('checked') ? 'x-live' : 'x-dead')
                    })
            .addClass(item_is_prechecked(x_index, y_index, settings) ? 'x-live' : 'x-dead')
            .addClass('x-container')
            .click(function() {
                var item = $('input', this)

                if(item.prop('disabled') === false) {
                    item.prop('checked', item.prop('checked') != true)
                        .change()
                }

                return false;
            })
    }
}

function y_get_builder(settings) {
    return function(index) {
        return $(document.createElement('div'))
                .addClass('y')
                .addClass('y' + index)
                .data('y', index)
    }
}

function control_get_builder(context, settings) {
    return [].concat(
        settings.evolve ? [evolve_get_builder(context, settings)] : [],
        settings.reset ? [reset_get_builder(context, settings)] : [],
        settings.randomize ? [random_get_builder(context, settings)] : [],
        settings.clear ? [clear_get_builder(context, settings)] : [],
        settings.automate ? [auto_get_builder(context, settings)] : [])
}

$.fn.game_of_life = function(options) {
    var settings = $.extend({
            width: 20,
            height: 20,
            init: [],
            evolve: true,
            randomize: true,
            clear: true,
            automate: true,
            disabled: true,
            reset: false
        },
        options),
        item = this

    item.addClass('game-of-life')
        .append(control_build(
            settings,
            control_get_builder(this, settings)))
        .append(board_build(
            this,
            settings,
            x_get_builder(settings),
            y_get_builder(settings)))
}

})(jQuery)