eyeling 1.34.3 → 1.34.5

package/test/eyelang/conformance/cases/071_string_edges.pl

@@ -0,0 +1,10 @@
+% Reference 9.1: reusable string built-ins cover empty results and scalar list items.
+materialize(answer, 2).
+answer(split_missing_separator, X) :- split("abc", ",", X).
+answer(split_empty_separator, X) :- split("abc", "", X).
+answer(join_empty, X) :- join([], ",", X).
+answer(join_numbers, X) :- join([1, 2, 3], "-", X).
+answer(substring_empty, X) :- substring("abcdef", 2, 0, X).
+answer(replace_empty_search, X) :- replace("abc", "", "x", X).
+answer(lower_string, X) :- lowercase("Hello", X).
+answer(upper_string, X) :- uppercase("Eyelang 123", X).

package/test/eyelang/conformance/cases/072_string_conversions.pl

@@ -0,0 +1,10 @@
+% Reference 9.1: string/atom/number conversions are deterministic in documented modes.
+materialize(answer, 2).
+answer(number_to_string, X) :- number_string(-7, X).
+answer(string_to_integer, X) :- number_string(X, "123").
+answer(string_to_decimal, X) :- number_string(X, "-3.5").
+answer(non_numeric_rejected, ok) :- not(number_string(X, "abc")).
+answer(atom_to_string, X) :- atom_string(hello_world, X).
+answer(string_to_atom, X) :- atom_string(X, "hello_world").
+answer(number_to_atom, X) :- atom_string(X, 123).
+answer(trim_to_empty, X) :- trim("   ", X).

package/test/eyelang/conformance/cases/073_term_introspection_edges.pl

@@ -0,0 +1,10 @@
+% Reference 9.1: term-inspection built-ins expose scalars, nested arguments, and zero arity compounds.
+materialize(answer, 2).
+answer(functor_atom, pair(Name, Arity)) :- functor(alpha, Name, Arity).
+answer(functor_number, pair(Name, Arity)) :- functor(42, Name, Arity).
+answer(functor_string, pair(Name, Arity)) :- functor("hi", Name, Arity).
+answer(arg_nested, X) :- arg(1, path(edge(a, b), c), X).
+answer(compose_nested, X) :- compound_name_arguments(X, outer, [inner(a), [b, c]]).
+answer(decompose_zero, pair(Name, Args)) :- compound_name_arguments(z(), Name, Args).
+answer(arg_zero_rejected, ok) :- not(arg(0, edge(a, b), X)).
+answer(arg_too_large_rejected, ok) :- not(arg(3, edge(a, b), X)).

package/test/eyelang/conformance/cases/074_forall_edges.pl

@@ -0,0 +1,10 @@
+% Reference 9.1: forall/2 succeeds for every generated binding, including the empty generator case.
+materialize(answer, 2).
+small(1).
+small(2).
+large(3).
+answer(all_small, ok) :- forall(small(X), lt(X, 3)).
+answer(empty_generator, ok) :- forall(missing(X), lt(X, 0)).
+answer(not_all_large, ok) :- not(forall(large(X), lt(X, 3))).
+answer(bound_outer_environment, ok) :- small(X), eq(X, 1), forall(small(Y), le(X, Y)).
+answer(checker_can_use_generator_binding, ok) :- forall(small(X), member(X, [1, 2, 3])).

package/test/eyelang/conformance/cases/075_aggregation_edges.pl

@@ -0,0 +1,12 @@
+% Reference 9.1: aggregation handles empty result sets, structured templates, and ordered best answers.
+materialize(answer, 2).
+score(alice, 2).
+score(bob, 1).
+score(cara, 3).
+answer(findall_empty, X) :- findall(V, missing(V), X).
+answer(count_filtered, X) :- countall((score(Name, Score), gt(Score, 1)), X).
+answer(sum_empty, X) :- sumall(V, missing(V), X).
+answer(sum_scores, X) :- sumall(Score, score(Name, Score), X).
+answer(best_min, pair(Key, Value)) :- aggregate_min(Score, Name, score(Name, Score), Key, Value).
+answer(best_max, pair(Key, Value)) :- aggregate_max(Score, Name, score(Name, Score), Key, Value).
+answer(best_empty_rejected, ok) :- not(aggregate_min(Key, Value, missing(Value), Key, Value)).

package/test/eyelang/conformance/cases/076_composed_reusable_builtins.pl

@@ -0,0 +1,8 @@
+% Reference 9.1: reusable built-ins compose without special host predicates.
+materialize(answer, 2).
+line("  red,green,blue  ").
+answer(clean_join, X) :- line(Raw), trim(Raw, Trimmed), split(Trimmed, ",", Parts), join(Parts, "|", X).
+answer(middle_upper, X) :- line(Raw), trim(Raw, Trimmed), split(Trimmed, ",", Parts), nth0(1, Parts, Middle), uppercase(Middle, X).
+answer(summary, result(Head, Last, Count)) :- line(Raw), trim(Raw, T), split(T, ",", Parts), head(Parts, Head), last(Parts, Last), length(Parts, Count).
+answer(term_report, X) :- compound_name_arguments(Term, measurement, [temperature, 21]), term_string(Term, X).
+answer(score_text, X) :- max_list([3, 9, 5], Max), number_string(Max, Text), str_concat("max=", Text, X).

package/test/eyelang/conformance/cases/077_recursive_path_with_lists.pl

@@ -0,0 +1,10 @@
+% Reference 5.4, 7.3, 9.7: recursive path construction can carry list evidence.
+materialize(answer, 2).
+edge(a, b).
+edge(b, c).
+edge(c, d).
+path(X, Y, [X, Y]) :- edge(X, Y).
+path(X, Z, [X | Rest]) :- edge(X, Y), path(Y, Z, Rest).
+answer(path, P) :- path(a, d, P).
+answer(prefix, P) :- path(a, d, Full), take(2, Full, P).
+answer(suffix, S) :- path(a, d, Full), drop(2, Full, S).

package/test/eyelang/conformance/cases/078_mutual_recursion_with_arithmetic.pl

@@ -0,0 +1,7 @@
+% Reference 7.3, 9.2, 9.5: finite arithmetic recursion works with generated ranges.
+materialize(answer, 2).
+even(0).
+even(N) :- gt(N, 0), sub(N, 1, M), odd(M).
+odd(N) :- gt(N, 0), sub(N, 1, M), even(M).
+answer(even, N) :- between(0, 6, N), even(N).
+answer(odd, N) :- between(0, 6, N), odd(N).

package/test/eyelang/conformance/cases/079_big_integer_arithmetic.pl

@@ -0,0 +1,8 @@
+% Reference 9.2: integer arithmetic keeps exact BigInt paths where possible.
+materialize(answer, 2).
+answer(add_big, X) :- add(9007199254740993, 7, X).
+answer(sub_big, X) :- sub(9007199254741000, 7, X).
+answer(mul_big, X) :- mul(123456789, 987654321, X).
+answer(pow_big, X) :- pow(2, 63, X).
+answer(div_big, X) :- div(9223372036854775808, 2, X).
+answer(mod_big, X) :- mod(9223372036854775809, 10, X).

package/test/eyelang/conformance/cases/080_rounding_modes.pl

@@ -0,0 +1,10 @@
+% Reference 9.2: rounding built-ins have distinct behavior for positive and negative decimals.
+materialize(answer, 2).
+answer(floor_pos, X) :- floor(3.9, X).
+answer(floor_neg, X) :- floor(-3.1, X).
+answer(ceiling_pos, X) :- ceiling(3.1, X).
+answer(ceiling_neg, X) :- ceiling(-3.9, X).
+answer(trunc_pos, X) :- trunc(3.9, X).
+answer(trunc_neg, X) :- trunc(-3.9, X).
+answer(round_half_up, X) :- rounded(2.5, X).
+answer(round_half_neg, X) :- rounded(-2.5, X).

package/test/eyelang/conformance/cases/081_zero_safe_numeric_functions.pl

@@ -0,0 +1,9 @@
+% Reference 9.2: transcendental functions have stable exact outputs at simple inputs.
+materialize(answer, 2).
+answer(sin_zero, X) :- sin(0, X).
+answer(cos_zero, X) :- cos(0, X).
+answer(tan_zero, X) :- tan(0, X).
+answer(exp_zero, X) :- exp(0, X).
+answer(log_one, X) :- log(1, X).
+answer(atan2_zero, X) :- atan2(0, 1, X).
+answer(sqrt_one, X) :- sqrt(1, X).

package/test/eyelang/conformance/cases/082_comparison_semantics.pl

@@ -0,0 +1,10 @@
+% Reference 9.3: comparison handles numbers, durations, strings, and lexical scalars.
+materialize(answer, 2).
+answer(integer_order, ok) :- lt(9, 10).
+answer(decimal_equal_le, ok) :- le(2.0, 2).
+answer(numeric_not_lexical, ok) :- lt(10, 100).
+answer(duration_years, ok) :- lt('P1Y', 'P2Y').
+answer(duration_months, ok) :- gt('P1Y1M', 'P1Y').
+answer(atom_lexical, ok) :- lt(alpha, beta).
+answer(string_lexical, ok) :- gt("z", "a").
+answer(compound_lexical_text, ok) :- lt(pair(a, 1), pair(b, 1)).

package/test/eyelang/conformance/cases/083_between_modes_and_empty_ranges.pl

@@ -0,0 +1,8 @@
+% Reference 9.5: between/3 enumerates inclusively, checks bound values, and rejects empty ranges.
+materialize(answer, 2).
+answer(enumerated, X) :- between(-1, 1, X).
+answer(check_bound, ok) :- between(1, 3, 2).
+answer(check_low_edge, ok) :- between(1, 3, 1).
+answer(check_high_edge, ok) :- between(1, 3, 3).
+answer(check_outside_rejected, ok) :- not(between(1, 3, 4)).
+answer(empty_range_rejected, ok) :- not(between(3, 1, X)).

package/test/eyelang/conformance/cases/084_append_and_select_composition.pl

@@ -0,0 +1,7 @@
+% Reference 9.7: relational list predicates compose and preserve enumeration order.
+materialize(answer, 2).
+answer(split, pair(A, B)) :- append(A, B, [x, y, z]).
+answer(select_middle, Rest) :- select(y, [x, y, z], Rest).
+answer(select_duplicate, pair(Value, Rest)) :- select(Value, [a, b, a], Rest).
+answer(rebuild, Whole) :- append([a, b], [c, d], Whole).
+answer(no_select_rejected, ok) :- not(select(z, [a, b], Rest)).

package/test/eyelang/conformance/cases/085_nth_and_update_edges.pl

@@ -0,0 +1,8 @@
+% Reference 9.7: zero-based indexing can enumerate and set elements without mutating the source list.
+materialize(answer, 2).
+answer(index_value, pair(I, V)) :- nth0(I, [red, green, blue], V).
+answer(bound_index, X) :- nth0(1, [red, green, blue], X).
+answer(set_first, X) :- set_nth0(0, [red, green], blue, X).
+answer(set_last, X) :- set_nth0(2, [a, b, c], z, X).
+answer(index_too_large_rejected, ok) :- not(nth0(3, [a, b, c], X)).
+answer(set_too_large_rejected, ok) :- not(set_nth0(3, [a, b, c], z, X)).

package/test/eyelang/conformance/cases/086_slicing_pipeline.pl

@@ -0,0 +1,10 @@
+% Reference 9.7: head/rest/last/take/drop/slice are deterministic reusable list operations.
+materialize(answer, 2).
+data([zero, one, two, three, four]).
+answer(head, X) :- data(L), head(L, X).
+answer(rest, X) :- data(L), rest(L, X).
+answer(last, X) :- data(L), last(L, X).
+answer(take_three, X) :- data(L), take(3, L, X).
+answer(drop_three, X) :- data(L), drop(3, L, X).
+answer(slice_middle, X) :- data(L), slice(1, 3, L, X).
+answer(slice_tail_empty, X) :- data(L), slice(5, 0, L, X).

package/test/eyelang/conformance/cases/087_sort_reverse_length.pl

@@ -0,0 +1,8 @@
+% Reference 9.7 and 9.8: list ordering and length built-ins are deterministic on proper lists.
+materialize(answer, 2).
+answer(length_empty, X) :- length([], X).
+answer(length_nested, X) :- length([[a], [b, c], []], X).
+answer(reverse_atoms, X) :- reverse([a, b, c], X).
+answer(sort_numbers, X) :- sort([3, 1, 2, 1], X).
+answer(sort_mixed_terms, X) :- sort([b, 2, a, 1, pair(a), "s"], X).
+answer(reverse_empty, X) :- reverse([], X).

package/test/eyelang/conformance/cases/088_list_summaries_failures.pl

@@ -0,0 +1,8 @@
+% Reference 9.7: list summaries accept numbers and reject non-numeric sums.
+materialize(answer, 2).
+answer(sum_integers, X) :- sum_list([1, 2, 3, 4], X).
+answer(sum_decimals, X) :- sum_list([1.5, 2.25, -0.75], X).
+answer(min_terms, X) :- min_list([pair(b), pair(a), pair(c)], X).
+answer(max_terms, X) :- max_list([pair(b), pair(a), pair(c)], X).
+answer(sum_non_number_rejected, ok) :- not(sum_list([1, a], X)).
+answer(set_scalars, X) :- list_to_set([b, a, b, 1, 1, "a", a], X).

package/test/eyelang/conformance/cases/089_string_split_join_pipeline.pl

@@ -0,0 +1,7 @@
+% Reference 9.6: split/join/trim compose for simple data-cleaning workflows.
+materialize(answer, 2).
+raw("  alpha,beta,gamma  ").
+answer(parts, X) :- raw(R), trim(R, T), split(T, ",", X).
+answer(pipe, X) :- raw(R), trim(R, T), split(T, ",", Parts), join(Parts, "|", X).
+answer(first_upper, X) :- raw(R), trim(R, T), split(T, ",", Parts), head(Parts, H), uppercase(H, X).
+answer(last_lower, X) :- raw(R), trim(R, T), split(T, ",", Parts), last(Parts, L), lowercase(L, X).

package/test/eyelang/conformance/cases/090_string_substring_replace_edges.pl

@@ -0,0 +1,9 @@
+% Reference 9.6: substring and replace have finite boundary behavior.
+materialize(answer, 2).
+answer(prefix, X) :- substring("eyelang", 0, 3, X).
+answer(middle, X) :- substring("eyelang", 3, 2, X).
+answer(suffix, X) :- substring("eyelang", 5, 2, X).
+answer(empty_at_end, X) :- substring("eyelang", 7, 0, X).
+answer(out_of_range_rejected, ok) :- not(substring("eyelang", 6, 2, X)).
+answer(replace_all, X) :- replace("banana", "na", "NA", X).
+answer(replace_missing, X) :- replace("banana", "x", "y", X).

package/test/eyelang/conformance/cases/091_string_case_and_trim.pl

@@ -0,0 +1,7 @@
+% Reference 9.6: string case and trim built-ins preserve non-letter characters.
+materialize(answer, 2).
+answer(lower_mixed, X) :- lowercase("Hello WORLD 123!", X).
+answer(upper_mixed, X) :- uppercase("Hello world 123!", X).
+answer(trim_spaces, X) :- trim("  padded  ", X).
+answer(trim_tabs_newline, X) :- trim("\tvalue\n", X).
+answer(trim_empty, X) :- trim("", X).

package/test/eyelang/conformance/cases/092_scalar_string_conversions.pl

@@ -0,0 +1,9 @@
+% Reference 9.6: number_string/2, atom_string/2, and term_string/2 are portable scalar bridges.
+materialize(answer, 2).
+answer(number_to_string, X) :- number_string(42, X).
+answer(decimal_string_to_number, X) :- number_string(X, "-12.75").
+answer(scientific_string_to_number, X) :- number_string(X, "1e3").
+answer(atom_to_string, X) :- atom_string('hello-world', X).
+answer(string_to_atom_needs_quotes, X) :- atom_string(X, "hello-world").
+answer(term_to_string, X) :- term_string(result([a, b], score(10)), X).
+answer(unbound_term_rejected, ok) :- not(term_string(X, S)).

package/test/eyelang/conformance/cases/093_regex_named_captures_context.pl

@@ -0,0 +1,8 @@
+% Reference 9.6 and 9.9: matches/3 turns named captures into context terms.
+materialize(answer, 2).
+line("level=warn code=E42 user=bob").
+answer(level, X) :- line(L), matches(L, "level=(?<level>\\w+) code=(?<code>\\w+) user=(?<user>\\w+)", C), holds(C, level(X)).
+answer(code, X) :- line(L), matches(L, "level=(?<level>\\w+) code=(?<code>\\w+) user=(?<user>\\w+)", C), holds(C, code(X)).
+answer(user, X) :- line(L), matches(L, "level=(?<level>\\w+) code=(?<code>\\w+) user=(?<user>\\w+)", C), holds(C, user(X)).
+answer(no_named_groups_rejected, ok) :- not(matches("abc", "a(b)c", C)).
+answer(bad_regex_rejected, ok) :- not(matches("abc", "(", C)).

package/test/eyelang/conformance/cases/094_context_holds_enumeration.pl

@@ -0,0 +1,7 @@
+% Reference 9.9: holds/2 and holds/3 enumerate comma-context terms left to right.
+materialize(answer, 2).
+context((kind(alert), severity(high), owner(alice))).
+answer(term, X) :- context(C), holds(C, X).
+answer(parts, pair(Name, Args)) :- context(C), holds(C, Name, Args).
+answer(filter, X) :- context(C), holds(C, owner(X)).
+answer(missing_rejected, ok) :- context(C), not(holds(C, status(open))).

package/test/eyelang/conformance/cases/095_term_introspection_roundtrip.pl

@@ -0,0 +1,8 @@
+% Reference 9.10: term inspection can decompose and recompose compound terms.
+materialize(answer, 2).
+answer(functor_compound, pair(Name, Arity)) :- functor(edge(a, b), Name, Arity).
+answer(arg_first, X) :- arg(1, edge(a, b), X).
+answer(arg_second, X) :- arg(2, edge(a, b), X).
+answer(decompose, pair(Name, Args)) :- compound_name_arguments(edge(a, b), Name, Args).
+answer(recompose, X) :- compound_name_arguments(X, edge, [a, b]).
+answer(roundtrip, X) :- compound_name_arguments(edge(a, b), Name, Args), compound_name_arguments(X, Name, Args).

package/test/eyelang/conformance/cases/096_functor_scalar_edges.pl

@@ -0,0 +1,8 @@
+% Reference 9.10: functor/3 reports scalar terms with arity zero.
+materialize(answer, 2).
+answer(atom, pair(Name, Arity)) :- functor(alpha, Name, Arity).
+answer(quoted_atom, pair(Name, Arity)) :- functor('hello-world', Name, Arity).
+answer(string, pair(Name, Arity)) :- functor("text", Name, Arity).
+answer(number, pair(Name, Arity)) :- functor(123, Name, Arity).
+answer(list_functor, pair(Name, Arity)) :- functor([a, b], Name, Arity).
+answer(unbound_rejected, ok) :- not(functor(X, Name, Arity)).

package/test/eyelang/conformance/cases/097_control_negation_once_forall.pl

@@ -0,0 +1,13 @@
+% Reference 9.10: not/1, once/1, and forall/2 are scoped control operations.
+materialize(answer, 2).
+choice(a).
+choice(b).
+allowed(a).
+allowed(b).
+answer(once_choice, X) :- once(choice(X)).
+answer(negated_missing, ok) :- not(choice(c)).
+answer(negated_existing_rejected, ok) :- not(not(choice(a))).
+answer(all_allowed, ok) :- forall(choice(X), allowed(X)).
+answer(not_all_allowed_after_extra, ok) :- not(forall(extra(X), allowed(X))).
+extra(a).
+extra(c).

package/test/eyelang/conformance/cases/098_aggregation_nested_templates.pl

@@ -0,0 +1,11 @@
+% Reference 9.8: aggregation copies resolved structured templates from inner goals.
+materialize(answer, 2).
+score(alice, math, 9).
+score(alice, logic, 7).
+score(bob, math, 5).
+score(bob, logic, 8).
+answer(all_pairs, X) :- findall(result(Name, Subject, Score), score(Name, Subject, Score), X).
+answer(count_high, X) :- countall((score(Name, Subject, Score), ge(Score, 8)), X).
+answer(sum_alice, X) :- sumall(Score, score(alice, Subject, Score), X).
+answer(best_score, pair(Key, Value)) :- aggregate_max(Score, result(Name, Subject), score(Name, Subject, Score), Key, Value).
+answer(lowest_pair, pair(Key, Value)) :- aggregate_min([Score, Name], Subject, score(Name, Subject, Score), Key, Value).

package/test/eyelang/conformance/cases/099_materialize_multiple_arities.pl

@@ -0,0 +1,8 @@
+% Reference 11.2 and 13: materialize/2 can select several predicate arities explicitly.
+materialize(answer, 1).
+materialize(answer, 2).
+seed(a).
+seed(b).
+answer(X) :- seed(X).
+answer(X, doubled) :- seed(X).
+answer(hidden, X, Y) :- seed(X), seed(Y).

package/test/eyelang/conformance/cases/100_reusable_builtin_workflow.pl

@@ -0,0 +1,10 @@
+% Reference 9: standard built-ins compose into a reusable data-processing workflow.
+materialize(answer, 2).
+row(" alice : 3,5,7 ").
+row(" bob : 2,4 ").
+field(Name, Scores) :- row(Raw), trim(Raw, T), split(T, ":", [NameRaw, ScoresRaw]), trim(NameRaw, NameText), atom_string(Name, NameText), trim(ScoresRaw, CleanScores), split(CleanScores, ",", ScoreTexts), scores(ScoreTexts, Scores).
+scores([], []).
+scores([Text | RestText], [N | Rest]) :- number_string(N, Text), scores(RestText, Rest).
+answer(total(Name), Total) :- field(Name, Scores), sum_list(Scores, Total).
+answer(maximum(Name), Max) :- field(Name, Scores), max_list(Scores, Max).
+answer(report(Name), Text) :- field(Name, Scores), length(Scores, Count), number_string(Count, CountText), atom_string(Name, NameText), str_concat(NameText, ":", Prefix), str_concat(Prefix, CountText, Text).

package/test/eyelang/conformance/cases/extension/036_reusable_numeric_builtins.pl

@@ -0,0 +1,10 @@
+% Reference 9.1: reusable numeric functions and max/3.
+materialize(answer, 2).
+answer(max, X) :- max(17, 42, X).
+answer(sqrt, X) :- sqrt(81, X).
+answer(floor, X) :- floor(3.9, X).
+answer(ceiling, X) :- ceiling(3.1, X).
+answer(trunc, X) :- trunc(-3.9, X).
+answer(exp, X) :- exp(0, X).
+answer(tan, X) :- tan(0, X).
+answer(atan2, X) :- atan2(0, -1, X).

package/test/eyelang/conformance/cases/extension/037_reusable_list_builtins.pl

@@ -0,0 +1,11 @@
+% Reference 9.1: reusable list selectors, slices, summaries, and stable set conversion.
+materialize(answer, 2).
+answer(head, X) :- head([alpha, beta, gamma, beta], X).
+answer(last, X) :- last([alpha, beta, gamma, beta], X).
+answer(take, X) :- take(2, [alpha, beta, gamma, beta], X).
+answer(drop, X) :- drop(2, [alpha, beta, gamma, beta], X).
+answer(slice, X) :- slice(1, 2, [alpha, beta, gamma, beta], X).
+answer(sum, X) :- sum_list([1, 2, 3.5], X).
+answer(min, X) :- min_list([3, 1, 2], X).
+answer(max, X) :- max_list([3, 1, 2], X).
+answer(set, X) :- list_to_set([beta, alpha, beta, gamma, alpha], X).

package/test/eyelang/conformance/cases/extension/038_reusable_string_builtins.pl

@@ -0,0 +1,12 @@
+% Reference 9.1: reusable string normalization, splitting, joining, replacement, and conversions.
+materialize(answer, 2).
+answer(trim, X) :- trim("  Hello Eyelang  ", X).
+answer(lower, X) :- lowercase("Hello Eyelang", X).
+answer(upper, X) :- uppercase("Hello Eyelang", X).
+answer(split, X) :- split("red,green,blue", ",", X).
+answer(join, X) :- join([red, green, blue], ":", X).
+answer(substring, X) :- substring("abcdef", 2, 3, X).
+answer(replace, X) :- replace("red-green-red", "red", "blue", X).
+answer(number_to_string, X) :- number_string(42, X).
+answer(string_to_number, X) :- number_string(X, "3.5").
+answer(atom_string, X) :- atom_string(eyelang, X).

package/test/eyelang/conformance/cases/extension/039_reusable_term_control_builtins.pl

@@ -0,0 +1,11 @@
+% Reference 9.1: term introspection/construction, term strings, and forall/2.
+materialize(answer, 2).
+item(1).
+item(2).
+item(3).
+answer(functor, pair(Name, Arity)) :- functor(edge(a, b), Name, Arity).
+answer(arg, X) :- arg(2, edge(a, b), X).
+answer(decompose, pair(Name, Args)) :- compound_name_arguments(edge(a, b), Name, Args).
+answer(compose, X) :- compound_name_arguments(X, edge, [a, b]).
+answer(term_string, X) :- term_string(edge(a, [b, c]), X).
+answer(forall, ok) :- forall(item(X), lt(X, 4)).

package/test/eyelang/conformance/expected/001_fact_output.pl

@@ -0,0 +1 @@
+parent(pat, jan).

package/test/eyelang/conformance/expected/002_rule_recursion.pl

@@ -0,0 +1,2 @@
+ancestor(pat, jan).
+ancestor(pat, emma).

package/test/eyelang/conformance/expected/003_terms_and_readback.pl

@@ -0,0 +1,13 @@
+value(atom, pat).
+value(quoted_atom, 'atom with spaces').
+value(quoted_quote, 'needs''quote').
+value(empty_atom, '').
+value(string, "line\nquote: \"ok\"").
+value(integer, -42).
+value(decimal, 0.25).
+value(scientific, 1.25e-3).
+value(compound, pair(3, nested(atom, [x, y]))).
+value(zero_arity, nil()).
+value(empty_list, []).
+value(proper_list, [a, b, c]).
+value(improper_list, [a, b | tail]).

package/test/eyelang/conformance/expected/004_conjunction_and_parentheses.pl

@@ -0,0 +1 @@
+ok(a, yes).

package/test/eyelang/conformance/expected/005_list_deconstruction.pl

@@ -0,0 +1,2 @@
+answer(first, a).
+answer(tail, [b, c]).

package/test/eyelang/conformance/expected/006_comma_formula_data.pl

@@ -0,0 +1 @@
+answer(formula, (name(alice, "Alice"), knows(alice, bob))).

package/test/eyelang/conformance/expected/007_anonymous_variables.pl

@@ -0,0 +1 @@
+answer(fresh, yes).

package/test/eyelang/conformance/expected/008_graphic_atoms.pl

@@ -0,0 +1,3 @@
+value(hash, #).
+value(arrow, =>).
+value(comparison, =<).

package/test/eyelang/conformance/expected/009_comments_and_whitespace.pl

@@ -0,0 +1,2 @@
+answer(quoted_percent, "% not a comment").
+answer(quoted_atom, 'has % sign').

package/test/eyelang/conformance/expected/010_variable_scope_and_reuse.pl

@@ -0,0 +1,2 @@
+answer(from_a, c).
+answer(from_b, d).

package/test/eyelang/conformance/expected/011_predicate_arity.pl

@@ -0,0 +1,2 @@
+answer(unary, a).
+answer(binary, pair(a, b)).

package/test/eyelang/conformance/expected/012_nested_compound_unification.pl

@@ -0,0 +1,2 @@
+answer(middle, b).
+answer(list_tail, [d]).

package/test/eyelang/conformance/expected/013_multiple_clauses_order.pl

@@ -0,0 +1,2 @@
+answer(color, red).
+answer(color, blue).

package/test/eyelang/conformance/expected/014_failure_filters_answers.pl

@@ -0,0 +1 @@
+answer(a, ok).

package/test/eyelang/conformance/expected/015_improper_list_unification.pl

@@ -0,0 +1,3 @@
+answer(list, [head | tail]).
+answer(head, head).
+answer(tail, tail).

package/test/eyelang/conformance/expected/016_zero_arity_compound.pl

@@ -0,0 +1 @@
+answer(value, nil()).

package/test/eyelang/conformance/expected/017_three_step_recursion.pl

@@ -0,0 +1,3 @@
+answer(reachable, b).
+answer(reachable, c).
+answer(reachable, d).

package/test/eyelang/conformance/expected/018_quoted_atom_readback.pl

@@ -0,0 +1,3 @@
+answer(symbol, 'two words').
+answer(symbol, 'needs''quote').
+answer(symbol, '').

package/test/eyelang/conformance/expected/019_parenthesized_three_conjuncts.pl

@@ -0,0 +1 @@
+answer(ok, a).

package/test/eyelang/conformance/expected/020_nested_list_terms.pl

@@ -0,0 +1,2 @@
+answer(first_key, a).
+answer(second_key, c).

package/test/eyelang/conformance/expected/021_repeated_variable_head.pl

@@ -0,0 +1,2 @@
+answer(diagonal, a).
+answer(diagonal, c).

package/test/eyelang/conformance/expected/022_rule_head_structure.pl

@@ -0,0 +1,2 @@
+answer(first, alpha).
+answer(second, beta).

package/test/eyelang/conformance/expected/023_quoted_escapes_readback.pl

@@ -0,0 +1,2 @@
+answer(string, "line\nnext	\\slash").
+answer(atom, 'line\nnext\t\\slash').

package/test/eyelang/conformance/expected/024_numeric_literal_readback.pl

@@ -0,0 +1,3 @@
+answer(negative_decimal, -3.5).
+answer(positive_exp, 6.02e23).
+answer(negative_exp, -1.0e-3).

package/test/eyelang/conformance/expected/025_body_parentheses_with_formula_data.pl

@@ -0,0 +1 @@
+answer(ok, (left(a), right(b))).

package/test/eyelang/conformance/expected/026_underscore_named_variable_reuse.pl

@@ -0,0 +1 @@
+answer(shared, a).

package/test/eyelang/conformance/expected/027_default_derived_output.pl

@@ -0,0 +1,3 @@
+ancestor(pat, jan).
+ancestor(jan, emma).
+ancestor(pat, emma).

package/test/eyelang/conformance/expected/028_materialize_focus.pl

@@ -0,0 +1 @@
+answer(a, ok).

package/test/eyelang/conformance/expected/029_arithmetic_and_comparison.pl

@@ -0,0 +1,9 @@
+answer(sum, 5).
+answer(diff, 3).
+answer(product, 42).
+answer(integer_division, 3).
+answer(remainder, 1).
+answer(power, 256).
+answer(minimum, 3).
+answer(less_than, true).
+answer(greater_equal, true).

package/test/eyelang/conformance/expected/030_strings_and_atoms.pl

@@ -0,0 +1,2 @@
+answer(str_concat, "eyelang").
+answer(contains, true).

package/test/eyelang/conformance/expected/031_lists_aggregation_ordering.pl

@@ -0,0 +1,9 @@
+answer(member, a).
+answer(member, b).
+answer(append, [a, b, c]).
+answer(nth0, b).
+answer(set_nth0, [a, x, c]).
+answer(reverse, [c, b, a]).
+answer(length, 3).
+answer(findall, [1, 2, 3]).
+answer(sort, [a, b]).

package/test/eyelang/conformance/expected/032_holds_parts.pl

@@ -0,0 +1,3 @@
+answer(parts, exposed(ready, [])).
+answer(parts, exposed(name, [alice, "Alice"])).
+answer(parts, exposed(route, [alice, bob, 7])).

package/test/eyelang/conformance/expected/033_negation_once_generators.pl

@@ -0,0 +1,2 @@
+answer(open, a).
+answer(first_between, 2).

package/test/eyelang/conformance/expected/034_equality_and_inequality.pl

@@ -0,0 +1,4 @@
+answer(eq_variable, pair(a, [b, c])).
+answer(eq_nested, true).
+answer(neq_atoms, true).
+answer(neq_structures, true).

package/test/eyelang/conformance/expected/035_list_relations.pl

@@ -0,0 +1,4 @@
+answer(rest, [b, c]).
+answer(select, selected(a, [b])).
+answer(select, selected(b, [a])).
+answer(not_member, true).

package/test/eyelang/conformance/expected/036_append_splits.pl

@@ -0,0 +1,3 @@
+answer(split, split([], [a, b])).
+answer(split, split([a], [b])).
+answer(split, split([a, b], [])).

package/test/eyelang/conformance/expected/037_matching_and_comparison.pl

@@ -0,0 +1,5 @@
+answer(matches, true).
+answer(not_matches, true).
+answer(lex_lt, true).
+answer(lex_gt, true).
+answer(numeric_le, true).

package/test/eyelang/conformance/expected/038_memoize_declaration.pl

@@ -0,0 +1,2 @@
+reach(a, b).
+reach(a, c).

package/test/eyelang/conformance/expected/039_numeric_functions.pl

@@ -0,0 +1,7 @@
+answer(neg, -5).
+answer(abs, 5).
+answer(rounded, 3).
+answer(sin_zero, 0.0).
+answer(cos_zero, 1.0).
+answer(log_one, 0.0).
+answer(float_division, 3.5).

package/test/eyelang/conformance/expected/040_between_enumeration.pl

@@ -0,0 +1,3 @@
+answer(n, 3).
+answer(n, 4).
+answer(n, 5).

package/test/eyelang/conformance/expected/041_smallest_divisor.pl

@@ -0,0 +1 @@
+answer(divisor, 3).

package/test/eyelang/conformance/expected/042_negation_filter.pl

@@ -0,0 +1,2 @@
+answer(open, a).
+answer(open, c).

package/test/eyelang/conformance/expected/043_once_user_predicate.pl

@@ -0,0 +1 @@
+answer(first, a).

package/test/eyelang/conformance/expected/044_findall_user_goal.pl

@@ -0,0 +1 @@
+answer(bag, [b, a, b]).

package/test/eyelang/conformance/expected/045_sort_deduplicates_atoms.pl

@@ -0,0 +1 @@
+answer(sorted, [a, b, c]).

package/test/eyelang/conformance/expected/046_append_bound_prefix_suffix.pl

@@ -0,0 +1,2 @@
+answer(prefix, [a, b]).
+answer(suffix, [b, c]).

package/test/eyelang/conformance/expected/047_nth0_index_generation.pl

@@ -0,0 +1 @@
+answer(index, 1).

package/test/eyelang/conformance/expected/048_set_nth0_edges.pl

@@ -0,0 +1,2 @@
+answer(first, [x, b, c]).
+answer(last, [a, b, z]).