QPQ-AG/gmbytecode
10
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases 9 Wiki Activity

Make sorting idempotent

Browse Source
This commit is contained in:
Thomas Arts 2019-06-03 14:49:13 +02:00
parent 985e5358c9
commit b8b316aae0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/aeb_fate_data.erl
View File

@ -272,7 +272,10 @@ lt(13, ?FATE_LIST_VALUE([]), ?FATE_LIST_VALUE(_)) -> true;
lt(13, ?FATE_LIST_VALUE([A|RA]), ?FATE_LIST_VALUE([B|RB])) -> lt(13, ?FATE_LIST_VALUE([A|RA]), ?FATE_LIST_VALUE([B|RB])) ->
O1 = ordinal(A), O1 = ordinal(A),
O2 = ordinal(B), O2 = ordinal(B),
if O1 == O2 -> lt(RA, RB); if O1 == O2 ->
if A == B -> lt(RA, RB);
true -> A < B
end;
true -> O1 < O2 true -> O1 < O2
end; end;
lt(14, ?FATE_VARIANT(AritiesA, TagA, TA), lt(14, ?FATE_VARIANT(AritiesA, TagA, TA),