kana / lazy.js

Created April 09, 2013


    
    View lazy.js 
  
  
      lazy.js
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14
            15
            16
            17
            18
            19
            20
            21
            22
            23
            24
            25
            26
            27
            28
            29
            30
            31
            32
            33
            34
          
          
            function delay(expressionAsFunction) {
  var result;
  var isEvaluated = false;
                                                            
  return function () {
    if (!isEvaluated)
      result = expressionAsFunction();
    return result;
  };
}
                                                            
function force(promise) {
  return promise();
}
                                                            
function cons(car, cdr) {
  return [car, cdr];
}
                                                            
function next(n) {
  return cons(n, delay(function () {return next(n + 1);}));
}
                                                            
function head(stream) {
  return stream[0];
}
                                                            
function tail(stream) {
  return force(stream[1]);
}
                                                            
var stream = next(0);
console.log(stream);
console.log(head(tail(tail(stream))));  //==> 2