blap.js

// squiggle> :set f = fn(n) match (n) { case 0 => 1 case x => x * f(x - 1) }
(function () {
    'use strict';
    return (false || eval)('this')['f'] = sqgl$$freeze(function (n) {
        if (arguments.length !== 1) {
            throw new sqgl$$Error('expected 1 argument(s), got ' + arguments.length);
        }
        return function ($match) {
            if (sqgl$$is($match, 0)) {
                return function () {
                    return 1;
                }();
            }
            if (true) {
                return function (x) {
                    return $star(x, f($minus(x, 1)));
                }($match);
            }
            throw new sqgl$$Error('pattern match failure');
        }(n);
    });;
}());