peter/IBAFLang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init commit again

Browse Source
This commit is contained in:
Peter
2023-11-01 09:29:33 +01:00
parent 448147e7da
commit d6c745207b
250 changed files with 15552 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/fold-left.config Normal file
View File

@@ -0,0 +1,15 @@
general {
funcon-term:
initialise-giving
sequential(
print [ fold-left(fail, 1, ( )) ],
fold-left(
sequential(print given, given),
1, 2, 3))
;
}
tests {
result-term: tuple(tuple(1,2),3);
standard-out: [ [ 1 ], tuple(1,2), tuple(tuple(1,2),3) ];
}

15
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/fold-right.config Normal file
View File

@@ -0,0 +1,15 @@
general {
funcon-term:
initialise-giving
sequential(
print [ fold-right(fail, 1, ( )) ],
fold-right(
sequential(print given, given),
1, 2, 3))
;
}
tests {
result-term: tuple(3,tuple(2,1));
standard-out: [ [ 1 ], tuple(2,1), tuple(3,tuple(2,1)) ];
}

18
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/give.config Normal file
View File

@@ -0,0 +1,18 @@
general {
funcon-term:
initialise-giving
give(
sequential(
print 1,
2),
sequential(
print given,
give(3, print given),
print integer-add(given,2)))
;
}
tests {
result-term: null-value;
standard-out: [1, 2, 3, 4];
}

21
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/interleave-filter.config Normal file
View File

@@ -0,0 +1,21 @@
general {
funcon-term:
initialise-giving
sequential(
print [ interleave-filter(true, ( )) ],
tuple interleave-filter(
sequential(print given, is-less(given,3)),
1, 2, 3))
;
}
tests {
result-term: tuple(1, 2);
standard-out: [ [ ], 1, 2, 3 ];
//Also:
// standard-out: [ [ ], 1, 3, 2 ];
// standard-out: [ [ ], 2, 1, 3 ];
// standard-out: [ [ ], 2, 3, 1 ];
// standard-out: [ [ ], 3, 1, 2 ];
// standard-out: [ [ ], 3, 2, 1 ];
}

20
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/interleave-map.config Normal file
View File

@@ -0,0 +1,20 @@
general {
funcon-term:
initialise-giving
sequential(
print [ interleave-map(fail, ( )) ],
tuple interleave-map(
sequential(print integer-add(given,2), given),
sequential(print 1, 1),
sequential(print 2, 2)))
;
}
tests {
result-term: tuple(1, 2);
standard-out: [ [ ], 1, 2, 3, 4];
//Also:
// standard-out: [ [ ], 2, 1, 3, 4];
// standard-out: [ [ ], 1, 2, 4, 3];
// standard-out: [ [ ], 2, 1, 4, 3];
}

23
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/interleave-repeat.config Normal file
View File

@@ -0,0 +1,23 @@
general {
funcon-term:
initialise-giving
sequential(
print [ interleave-repeat(fail, 2, 1) ],
tuple interleave-repeat(
sequential(print integer-add(given,2), given),
sequential(print 1, 1),
sequential(print 2, 3)))
;
}
tests {
result-term: tuple(1, 2, 3);
standard-out: [ [ ], 1, 2, 3, 4, 5];
//Also:
// standard-out: [ [ ], ...., 3, 5, 4];
// standard-out: [ [ ], ...., 4, 3, 5];
// standard-out: [ [ ], ...., 4, 5, 3];
// standard-out: [ [ ], ...., 5, 3, 4];
// standard-out: [ [ ], ...., 5, 4, 3];
// standard-out: [ [ ], 2, 1, .......];
}

15
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/left-to-right-filter.config Normal file
View File

@@ -0,0 +1,15 @@
general {
funcon-term:
initialise-giving
sequential(
print [ left-to-right-filter(true, ( )) ],
tuple left-to-right-filter(
sequential(print given, is-less(given,42)),
42, 1, 43, 44, 2, 3, 45))
;
}
tests {
result-term: tuple(1, 2, 3);
standard-out: [ [ ], 42, 1, 43, 44, 2, 3, 45 ];
}

18
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/left-to-right-map.config Normal file
View File

@@ -0,0 +1,18 @@
general {
funcon-term:
initialise-giving
sequential(
print [ left-to-right-map(fail, ( )) ],
tuple left-to-right-map(
sequential(print integer-add(given,2), given),
sequential(print 1, 1),
sequential(print 2, 2)))
;
}
tests {
result-term: tuple(1, 2);
standard-out: [ [ ], 1, 2, 3, 4];
//Also:
// standard-out: [ [ ], 2, 1, 3, 4];
}

18
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/left-to-right-repeat.config Normal file
View File

@@ -0,0 +1,18 @@
general {
funcon-term:
initialise-giving
sequential(
print [ left-to-right-repeat(fail, 2, 1) ],
tuple left-to-right-repeat(
sequential(print integer-add(given,2), given),
sequential(print 1, 1),
sequential(print 2, 3)))
;
}
tests {
result-term: tuple(1, 2, 3);
standard-out: [ [ ], 1, 2, 3, 4, 5];
//Also:
// standard-out: [ [ ], 2, 1, 3, 4, 5];
}

16
IBAF-cbs/Funcons-beta/Computations/Normal/Giving/tests/no-given.config Normal file
View File

@@ -0,0 +1,16 @@
general {
funcon-term:
initialise-giving
give(
1,
no-given
else(
print given,
print"OK"))
;
}
tests {
result-term: null-value;
standard-out: ["OK"];
}