Commit 6a83de46 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

algo64: main program

parent dc8520ec
...@@ -49,4 +49,9 @@ module Algo64 ...@@ -49,4 +49,9 @@ module Algo64
assert { permut_sub (at a 'L2) a m (n+1) } assert { permut_sub (at a 'L2) a m (n+1) }
end end
let qs (a:array int) : unit
ensures { permut (old a) a }
ensures { sorted a }
= if length a > 0 then quicksort a 0 (length a - 1)
end end
Supports Markdown
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