mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-13 18:28:46 +00:00
Fixed README
This commit is contained in:
parent
3e95c3b8f5
commit
7f01e91b05
3 changed files with 3 additions and 3 deletions
|
|
@ -6,7 +6,7 @@ Prerequisites: ocaml [http://ocaml.org], opam [http://opam.ocaml.org].
|
||||||
|
|
||||||
Building:
|
Building:
|
||||||
|
|
||||||
* `opam pin add GT https://github.com/dboulytchev/GT.git`
|
* `opam pin add GT https://github.com/kakasu/GT.git#ppx`
|
||||||
* `opam pin add ostap https://github.com/dboulytchev/ostap.git`
|
* `opam pin add ostap https://github.com/dboulytchev/ostap.git`
|
||||||
* `opam install ostap`
|
* `opam install ostap`
|
||||||
* `opam install GT`
|
* `opam install GT`
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
fun insert (tree, value) {
|
fun insert (tree, value) {
|
||||||
case tree of
|
case tree of
|
||||||
`Empty -> return `Node (value, `Empty, `Empty)
|
`Empty -> return `Node (value, `Empty, `Empty)
|
||||||
| `Node (x, left, right) ->
|
| `Node (x, left, right) ->
|
||||||
if x > value
|
if x > value
|
||||||
then return `Node (x, insert (left, value), right)
|
then return `Node (x, insert (left, value), right)
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
fun collect_ints_acc (v, tail) local i {
|
fun collect_ints_acc (v, tail) local i {
|
||||||
case v of
|
case v of
|
||||||
a@#unboxed -> return `cons (a, tail)
|
a@#unboxed -> return `cons (a, tail)
|
||||||
| #string -> return tail
|
| #string -> return tail
|
||||||
| _ ->
|
| _ ->
|
||||||
for i := 0, i < v.length, i := i + 1 do
|
for i := 0, i < v.length, i := i + 1 do
|
||||||
tail := collect_ints_acc (v[i], tail)
|
tail := collect_ints_acc (v[i], tail)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue