mark/mers
1
0
Fork 0
mirror of https://github.com/Dummi26/mers.git synced 2025-03-10 14:13:52 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

update examples

Browse Source
This commit is contained in:
Mark 2023-11-07 20:24:20 +01:00
parent db59a1e92e
commit cab81059f3
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/04_Greatest_Common_Divisor.mers
View File

@ -3,10 +3,10 @@ gcd := vals -> {
(a, b) := vals
if a.eq(b)
(a)
else if a.diff(b).signum.eq(1)
&vals = (a, a.diff(b))
else if b.subtract(a).signum.eq(1)
&vals = (a, b.subtract(a))
else
&vals = (b.diff(a), b)
&vals = (a.subtract(b), b)
}
}.loop

10
examples/05_Matrix_Multiplicator.mers
View File

@ -62,7 +62,7 @@ read_matrix_line := width -> {
if w.eq(0) {
width = line.len
} else {
{() -> if line.len.diff(w).signum.eq(1) {
{() -> if line.len.subtract(w).signum.eq(-1) {
&line.push(0.0)
} else (())}.loop
}
@ -86,10 +86,10 @@ matrix_get := (matrix, (line, col)) -> {
leftpad := (str, l) -> {
str := (str).concat
d := str.len.diff(l)
d := l.subtract(str.len)
{() -> if d.signum.eq(1) {
&str = (" ", str).concat
&d = 1.diff(d)
&d = d.subtract(1)
} else {(())}}.loop
str
}
@ -100,11 +100,11 @@ matrix_print := matrix -> {
val_len := 0
matrix.for_each(line -> {
l := line.len
if l.diff(width).signum.eq(-1)
if width.subtract(l).signum.eq(-1)
&width = l
line.for_each(val -> {
l := (val).concat.len
if l.diff(val_len).eq(-1)
if val_len.subtract(l).eq(-1)
&val_len = l
})
})

2
examples/iter.mers
View File

@ -68,7 +68,7 @@ range := (min, max, inc) -> {
val := min
() -> {
// -1 if val > max, 1 if max > val, 0 if max = val
should_inc := ((val, max).diff.signum, inc.signum).eq
should_inc := ((max, val).subtract.signum, inc.signum).eq
if should_inc {
v := val
&val = (val, inc).sum