aboutsummaryrefslogtreecommitdiff
path: root/src/test/bench/shootout/binary-trees.rs
blob: bb3ab602ef0a2282d1cdbbf844f6bdecfc491d9b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type tree = tag(nil(), node(@tree, @tree, int));

fn item_check(&tree t) -> int {
  alt (t) {
    case (nil()) {
      ret 0;
    }
    case (node(@tree left, @tree right, int item)) {
      ret item + item_check(left) - item_check(right);
    }
  }
}

fn main() {
}