updated sessions

parent 37cafd50
......@@ -56,7 +56,7 @@ module Algo64
end
let qs (a:array int) : unit
ensures { permut_all (old a) a /\ qs_partition (old a) a 0 0 0 0 0 }
ensures { permut_all (old a) a }
ensures { sorted a }
= if length a > 0 then quicksort a 0 (length a - 1)
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment