Data/Random/Buffer, spec updated

This commit is contained in:
Dmitry Boulytchev 2020-08-22 20:11:41 +03:00
parent 94e4b16267
commit f08cd8396f
9 changed files with 164 additions and 10 deletions

View file

@ -79,12 +79,20 @@ public fun flatten (l) {
fun append (x) {
local new = x : {};
curr [0][1] := new;
curr [0] := new
}
fun traverse (l) {
case l of
_ : _ -> iter (traverse, l)
| {} -> skip
| _ -> append (l)
esac
}
iter (fun (x) {iter (append, x)}, l);
traverse (l);
res [1]
}