hellerve/nothing
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

done

Browse Source
This commit is contained in:
Veit Heller
2018-06-04 21:02:05 +02:00
parent 33e378fcd1
commit fd0ea53218
4 changed files with 19 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
nothing.js
View File

@@ -25,7 +25,7 @@ const Y = f => (x => f(x(x)))(x => f(x(x))); // lazy recursion
const Z = f => (x => f(_ => x(x)(_)))(x => f(_ => x(x)(_))); // eager recursion
const FACT = Z(f => n => IF(IS_ZERO(n))(ONE)(_ => MULT(n)(f(DEC(n)))(_)));
const DIV = Z(f => n => m => IF(IS_LEQ(m)(n))(_ => INC(f(SUB(n)(m))(m))(_))(ZERO));
const MOD = Z(f => n => m => IF(IS_LEQ(m)(n))(_ => f(SUB(n)(m))(m)(_))(m));
const MOD = Z(f => n => m => IF(IS_LEQ(m)(n))(_ => f(SUB(n)(m))(m)(_))(n));
const PAIR = x => y => f => f(x)(y);
const LEFT = p => p(x => y => x);
const RIGHT = p => p (x => y => y);
@@ -48,8 +48,8 @@ const DOUBLE_ALL = l => MAP(l)(MULT(TWO));
const TEN = INC(MULT(THREE)(THREE));
const RADIX = TEN;
const FOUR = INC(THREE);
const FIVE = INC(INC(THREE));
const FIFTEEN = MULT(THREE)(FIVE);
const FIVE = INC(FOUR);
const FIFTEEN = ADD(FIVE)(TEN);
const FIZZ = MAP(UNSHIFT(UNSHIFT(UNSHIFT(UNSHIFT(EMPTY)(FOUR))(FOUR))(TWO))(ONE))(ADD(RADIX));
const BUZZ = MAP(UNSHIFT(UNSHIFT(UNSHIFT(UNSHIFT(EMPTY)(FOUR))(FOUR))(THREE))(ZERO))(ADD(RADIX));
const FIZZBUZZ = n => MAP(RANGE(ONE)(n))(m =>