summaryrefslogtreecommitdiff
path: root/Test/dafny2/TreeFill.dfy
blob: fdd73a1a35d3418b2a7786d4a397bb427c999007 (plain)
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
// RUN: %dafny /compile:0 /dprint:"%t.dprint" "%s" > "%t"
// RUN: %diff "%s.expect" "%t"

datatype Tree<T> = Leaf | Node(Tree, T, Tree)

function Contains<T>(t: Tree, v: T): bool
{
  match t
  case Leaf => false
  case Node(left, x, right) => x == v || Contains(left, v) || Contains(right, v)
}

method Fill<T>(t: Tree, a: array<T>, start: int) returns (end: int)
  requires a != null && 0 <= start <= a.Length;
  modifies a;
  ensures start <= end <= a.Length;
  ensures forall i :: 0 <= i < start ==> a[i] == old(a[i]);
  ensures forall i :: start <= i < end ==> Contains(t, a[i]);
{
  match t {
    case Leaf =>
      end := start;
    case Node(left, x, right) =>
      end := Fill(left, a, start);
      if end < a.Length {
        a[end] := x;
        end := Fill(right, a, end + 1);
      }
  }
}