npm install lil-carrotSemantically LISP, syntactically JavaScript.
ES6 allows the circumflex ˆ (the little carrot) and ordinal symbols ª and º to be used as variables.
I've found ˆ and ª read and write well as call and apply, but you can use whatever you like.
You can type ˆ and ª on a mac with [alt-i] and [alt-9], respectively.
``
$ npm install little-carrot
`js
var lc = require('lil-carrot')
, ˆ = lc.call
, ª = lc.apply
, plus = (a, b) => a + b
ˆ(console.log
, ˆ(plus, 5, 10)
, ª(plus, [15, 20])
)
// 15 35
`
And to show lil-carrot in a non trivial task, here's one way to go about the first problem on projecteuler.
`js
var ˆ = require('lil-carrot').call
, log = console.log
, f = require('./your-functional-helpers')
, range = f.range
, reduce = f.reduce
, filter = f.filter
, mod = (a, b) => a % b
, or = (a, b) => a || b
, eq = (a, b) => a === b
, plus = (a, b) => a + b
, isDivisibleBy = (byNum, num) =>
ˆ(eq, 0, ˆ(mod, num, byNum))
, numberIsDivisibleBy3or5 = number =>
ˆ(or
, ˆ(isDivisibleBy, 3, number)
, ˆ(isDivisibleBy, 5, number))
, numbersBelow = max =>
ˆ(range, max)
, sum = numbers =>
ˆ(reduce, plus, numbers)
, sum35NumbersBelow = max =>
ˆ(sum
, ˆ(filter
, numberIsDivisibleBy3or5
, ˆ(numbersBelow, max)
)
)
ˆ(log
, 'euler 1'
, '\n sum numbers'
, '\n and below 1000'
, '\n divisible by 3 or 5'
)
ˆ(log, ˆ(sum35NumbersBelow, 1000))
`
You might iterate like this:
`js
var lc = require('lil-carrot')
, ˆ = lc.call
, ª = lc.apply
, plus = (a, b) => a + b
function _while(transform, data, shouldContinue) {
return ˆ(shouldContinue, data)
? _while(transform, ˆ(transform, data), shouldContinue)
: data
}
var nTimes = (n, transform, data) =>
ˆ(_while
, (i_data) => ª(
(i, data) =>
[ ˆ(plus, i, 1)
, ˆ(transform, data)
]
, i_data)
, [0, data]
, (i_data) => ª(
(i, data) => i < n
, i_data)
)[1]
ˆ(nTimes, 5, () => ˆ(console.log, 'hello'))
// hello
// hello
// hello
// hello
// hello
ˆ(log, ˆ(nTimes, 10, (i) => i*2, 1))
// 1024
``
Its just Lisp :)
MIT