圏論の考え方でつくられた、JavaScriptで動作する純粋関数型プログラミング言語 spinoza (スピノザ) ref: http://qiita.com/kenokabe/items/61d156005c7831c693cd

file0.txt

world = $('hello')(out);

file1.txt

world = $('hello')(out);

file10.txt

  var compute = function(fs)
  {
   //........
          return compute(fs1);
   //........
  };

file11.txt

  var compute = function(fs)
  {
    //------------
    if (type(fs) != 'Function')
    {
      return fs;
    }
    else
    {
      var length = fs.s.length;
      var result;

      if (length === 1)
      {
        return fs.s;
      }
      else
      {
        var ff = fs.s[length - 1]; //the last fs
        var fs0 = fseq(fs.s.slice(0, length - 1)); //fseq the rest

        if (type(ff) != 'Function')
        {
          return fs.s;
        }
        else
        {
          var fs1 = ff(fs0);
          return compute(fs1);
        }
      }
    }
    //---------
  };

file12.js

world = $(1)(out);

file13.js

  var out = function(fs)
  {
    var z = compute(fs);
    info('world', z);
    return z;
  };

file14.js

  'use strict';
  console.log('===== spinoza =====');

  var info = function(type, info)
  {
    console.info(type + '->', info);
  };

  var type = function(obj)
  {
    return Object
      .prototype
      .toString
      .call(obj)
      .slice(8, -1);
  };

  var $ = function(a)
  {
    var i = 0;
    var s = [];
    s[i] = a;

    var fs = function(a)
    {
      i++;
      s[i] = a;
      fs.s = s;
      return fs;
    };
    fs.s = s;

    return fs;
  };

  var fseq = function(s)
  {
    var fs = function() {};
    fs.s = s;
    return fs;
  };

  var compute = function(fs)
  {
    //------------
    if (type(fs) != 'Function')
    {
      return fs;
    }
    else
    {
      var length = fs.s.length;
      var result;

      if (length === 1)
      {
        return fs.s;
      }
      else
      {
        var ff = fs.s[length - 1]; //the last fs
        var fs0 = fseq(fs.s.slice(0, length - 1)); //fseq the rest

        if (type(ff) != 'Function')
        {
          return fs.s;
        }
        else
        {
          var fs1 = ff(fs0);
          return compute(fs1);
        }
      }
    }
    //---------
  };

  var out = function(fs)
  {
    var z = compute(fs);
    info('world', z);
    return z;
  };


  if (typeof(window) === 'undefined')
  {
    console.log('in node/iojs');
    global.window = global;
  }
  else
  {
    console.log('in browser');
  }
  Object.defineProperties(window,
  {
    world: //our physical world
    {
      set: function(fs)
      {
        return compute(fs); //compute fs
      }
    }
  });

file15.js

var plus10 = function(fs)
{
  var _ = require('lodash');　//take advantage of any npm great heritage!
  var f = function(x)
  {
    return x + 10;
  };
  var z = _.map(fs.s, f);
  return z;
};

//===========================================

world = $('hello')(out);
//[ 'hello' ]

world = $(1)(out);
// [ 1 ]

world = $(1)(2)(3)(out);
// [ 1, 2, 3 ]

world = $(1)(plus10)(out);
// [ 11 ]

world = $(1)(2)(3)(plus10)(out);
// [ 11, 12, 13 ]

world = $('hello');
//　nothing happens

world = $('hello')(out)(out);
// hello twice

//===========================================

file16.txt

//-------------------------------
var spinoza = require('./app');

var $ = spinoza.$;
var compute = spinoza.compute;
var out = spinoza.out;

var plus10 = function(fs) {
  var _ = require('lodash');
  var f = function(x) {
    return x + 10;
  };
  var z = _.map(fs.s, f);
  return z;
};

var f = function() {
  world = $('delay hello')(out);
};
var delay = setTimeout(f, 2000);

//-------------
var input = (function() {
  var std = process.stdin
    .resume()
    .setEncoding('utf8')
    .on('data', function(chunk) {
      chunk.trim().split('\n').forEach(function(line) {　
        world = $(line)(out);
      });
    })
    .on('end', function() {});
})();--------

//===========================================


world = $('hello')(out);
//[ 'hello' ]

world = $(1)(out);
// [ 1 ]

world = $(1)(2)(3)(out);
// [ 1, 2, 3 ]

world = $(1)(plus10)(out);
// [ 11 ]

world = $(1)(2)(3)(plus10)(out);
// [ 11, 12, 13 ]

world = $('hello');
//　nothing happens

world = $('hello')(out)(out);
// hello twice


//===========================================

file17.txt

> (+ 1 2)
3

file18.txt

(1 2 3)

file19.txt

>(list 1 2 3)
(1 2 3)

file2.txt

world = $('hello');

file20.txt

> (quote (1 2 3))
(1 2 3)

file21.txt

> '(1 2 3)
(1 2 3)

file22.txt

(quote (1 2 3))

file23.txt

(
  "hello World"
  (map (CONSOLE))
)

file24.txt

("hello World")

file25.txt

hello World

file26.txt

(
  "hello World"
  (map (CONSOLE))
  (map (CONSOLE))
)

file27.txt

("hello World")

file28.txt

hello World
hello World

file29.txt

(3 (== (3)) )

file3.txt

 var fseq = function(s)
  {
    var fs = function() {};
    fs.s = s;
    return fs;
  };

file30.txt

(true)

file31.txt

(3 (== (5)) )

file32.txt

(false)

file33.txt

(2 (> (1)) )

file34.txt

(true)

file35.txt

(2 (< (1)) )

file36.txt

(false)

file37.txt

(
　　3 (==(3))　
   (
     if (
           ("match")
           ("mismatch")
        )
   )
)

file38.txt

("match")

file39.txt

(
　　3 (==(5))　
   (
     if (
           ("match")
           ("mismatch")
        )
   )
)

file4.txt

 var fseq = function(s)
  {
    var fs = function() {};
    fs.s = s;
    return fs;
  };

file40.txt

("mismatch")

file41.txt

(
　　3 (==(5))　
   (
     if (
           ("case1")
           (
           　　3 (==(3))　
              (
                if (
                      ("case2")
                      (
                      　　3 (==(3))　
                         (
                           if (
                                 ("case3")
                                 ("mismatch")
                              )
                         )
                      )
                   )
              )
           )
        )
   )
)

file42.txt

(
　　3 (==(5))　
   (
     if (
           ("case1")
           (
           　　3 (==(1))　
              (
                if (
                      ("case2")
                      (
                      　　3 (==(3))　
                         (
                           if (
                                 ("case3")
                                 ("mismatch")
                              )
                         )
                      )
                   )
              )
           )
        )
   )
)

file43.txt

("case3")

file5.js

world = $(1)(out);

file6.js

world = $(1)(2)(3)(out);

file7.txt

  var $ = function(a)
  {
    var i = 0;
    var s = [];
    s[i] = a;

    var fs = function(a)
    {
      i++;
      s[i] = a;
      fs.s = s;
      return fs;
    };
    fs.s = s;

    return fs;
  };

file8.js

world = $(1)(out);

file9.js

world = $(1)(2)(3)(out);