blob: d9e1a0051410fe15efb4b5e996de7d92d59bc79f (
plain) (
blame)
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
31
32
33
34
35
36
37
38
39
40
41
42
|
(*
https://gist.github.com/masquerade0324/68f4f3fd3ab897fbe1ad
*)
fun bs xs 0 = xs
| bs (x::y::ys) n =
if (x<y) then x::(bs (y::ys) (n-1))
else y::(bs (x::ys) (n-1))
| bs xs _ = xs;
fun go xs 0 = xs
| go xs n = go (bs xs n) (n-1);
fun bsort [] = []
| bsort xs = go xs (length(xs) - 1);
(* Creates a random list *)
local
val nextInt = Random.randRange(1,10000);
val r = Random.rand(1,1);
in
fun mkRandList 0 = []
| mkRandList n = (nextInt r)::(mkRandList (n-1))
end;
(* Validation checks *)
fun validation [] = true
| validation (x::xs) =
let fun validation_cons x [] = true
| validation_cons x (y::ys) =
if x<=y then validation_cons y ys
else false
in
validation_cons x xs
end;
(* Main *)
validation(bsort(mkRandList 40000));
|
