File: binary_trees.js

package info (click to toggle)
js-of-ocaml 5.9.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 32,020 kB
  • sloc: ml: 91,250; javascript: 57,289; ansic: 315; makefile: 271; lisp: 23; sh: 6; perl: 4
file content (51 lines) | stat: -rw-r--r-- 1,342 bytes parent folder | download | duplicates (3)
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
/* The Great Computer Language Shootout
   http://shootout.alioth.debian.org/
   contributed by Isaac Gouy */

function TreeNode(left,right,item){
  this.left = left;
  this.right = right;
  this.item = item;
}

TreeNode.prototype.itemCheck = function(){
  if (this.left==null) return this.item;
  else return this.item + this.left.itemCheck() - this.right.itemCheck();
}

function bottomUpTree(item,depth){
  if (depth>0){
    return new TreeNode(
      bottomUpTree(2*item-1, depth-1)
      ,bottomUpTree(2*item, depth-1)
      ,item
    );
  }
  else {
    return new TreeNode(null,null,item);
  }
}


var minDepth = 4;
var n = 0; //arguments[0];
var maxDepth = Math.max(minDepth + 2, n);
var stretchDepth = maxDepth + 1;

var check = bottomUpTree(0,stretchDepth).itemCheck();
//print("stretch tree of depth " + stretchDepth + "\t check: " + check);

var longLivedTree = bottomUpTree(0,maxDepth);
for (var depth=minDepth; depth<=maxDepth; depth+=2){
  var iterations = 1 << (maxDepth - depth + minDepth);

  check = 0;
  for (var i=1; i<=iterations; i++){
    check += bottomUpTree(i,depth).itemCheck();
    check += bottomUpTree(-i,depth).itemCheck();
  }
  //   print(iterations*2 + "\t trees of depth " + depth + "\t check: " + check);
}

//print("long lived tree of depth " + maxDepth + "\t check: "
//   + longLivedTree.itemCheck());