From 36d22d82aa202bb199967e9512281e9a53db42c9 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 21:33:14 +0200 Subject: Adding upstream version 115.7.0esr. Signed-off-by: Daniel Baumann --- js/src/Y.js | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 js/src/Y.js (limited to 'js/src/Y.js') diff --git a/js/src/Y.js b/js/src/Y.js new file mode 100644 index 0000000000..98d3257cb3 --- /dev/null +++ b/js/src/Y.js @@ -0,0 +1,14 @@ +/* This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. */ + +// The Y combinator, applied to the factorial function. + +// Return the function that is the fixed point of f. +const Y = f => (x => f(v => x(x)(v))) + (x => f(v => x(x)(v))); + +// The factorial function is the fixed point of this: +const f = fac => n => (n <= 1) ? 1 : n * fac(n - 1); + +print(`5! is ${Y(f)(5)}`); -- cgit v1.2.3