Fixed performance/Sort.lama

This commit is contained in:
Dmitry Boulytchev 2022-10-25 02:57:51 +03:00
parent 1a1c2e6280
commit 80b391aff1
4 changed files with 6 additions and 4 deletions

View file

@ -1,3 +1,7 @@
fun compare (x, y) {
x - y
}
fun bubbleSort (l) {
fun inner (l) {
case l of

View file

@ -1 +1 @@
let version = "Version 1.10, 79460b744, Tue Sep 13 09:20:45 2022 +0300"
let version = "Version 1.10, 1a1c2e628, Tue Oct 11 17:05:26 2022 +0300"

View file

@ -46,8 +46,6 @@ fun createMatcher (buf, pos, line, col) {
}
fun matchString (s) {
fun min (x, y) {
if x < y then x else y fi
}

View file

@ -54,6 +54,6 @@ infixr || after |> (l, r) {
}
var expr = lid @ fun (s) {Lid (s)} || const @ fun (s) {Dec (s)},
assn = lid |> fun (id) {token (":=") |> fun (s) {expr @ fun (e) {Assn (id, e)}}};
assn = lid |> fun (id) {token (":=") |> fun (s) {expr @ fun (e) {Assn (id, e)}}};
printf ("%s\n", case assn (initMatcher ("x:=3")) of Fail (err) -> err | Succ (s, _) -> s.string esac)