Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
6a83de46
Commit
6a83de46
authored
Feb 07, 2014
by
Jean-Christophe Filliâtre
Browse files
algo64: main program
parent
dc8520ec
Changes
1
Hide whitespace changes
Inline
Side-by-side
examples/algo64.mlw
View file @
6a83de46
...
...
@@ -49,4 +49,9 @@ module Algo64
assert { permut_sub (at a 'L2) a m (n+1) }
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
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment