Linked list in javascript, as a single fold function.

closurelist.js

// Aliases h=head, t=tail, f=function, z=zero (aka identity), n=node as right fold.
let n = (h,t) => (f,z) =>
	t ? f(h, t(f,z)) : f(h,z)

let p = console.log

let list = n(4, n(3, n(2, n(1))))

let factorial4 = list((a,b) => a * b, 1)

p('!4 = ' + factorial4)

let add_no_zero = (a,b) => b ? a + b : a

p('Σ4 = ' + list(add_no_zero))

let map = f => (h,t) => t ? n(f(h), t) : n(f(h))

p('!14 / !10 = ' + list(map(x => x + 10))((a,b) => a * b, 1))

// or just print to show order unchanged from map
p(list(map(x => x * 10))((a,b) => a + ' ' + b, 'oh'))

// -----------------------------------------------------------------------------------------------
// curried version:

let n = h => t => z => f =>
	t ? f(t(z)(f))(h) : f(h)(z)

// uuu---g--llyy
let list = n(4)(n(3)(n(2)(n(1)())))

let factorial4 = list(1)(a => b => a * b)

p(factorial4)

let addz = a => b => b ? a + b : a

p(list()(addz))