glen
/
RAQ
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

have to actually return the values

This commit is contained in:
Glen Whitney 2017-10-24 23:14:42 +02:00
parent 3e27eb52f6
commit ca39aef5e4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gap/bytable.gi
View File

@ -158,6 +158,7 @@ InstallGlobalFunction(LeftQuasigroupByPerms,
Q := LeftQuasigroupByMultiplicationTableNC( Q := LeftQuasigroupByMultiplicationTableNC(
CayleyTableByPerms(perms, [1..Length(perms)])); CayleyTableByPerms(perms, [1..Length(perms)]));
SetLeftPerms(Q, perms); SetLeftPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(LeftRackByPerms, InstallGlobalFunction(LeftRackByPerms,
@ -166,6 +167,7 @@ InstallGlobalFunction(LeftRackByPerms,
Q := LeftRackByMultiplicationTable( Q := LeftRackByMultiplicationTable(
CayleyTableByPerms(perms, [1..Length(perms)])); CayleyTableByPerms(perms, [1..Length(perms)]));
SetLeftPerms(Q, perms); SetLeftPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(LeftRackByPermsNC, InstallGlobalFunction(LeftRackByPermsNC,
@ -174,6 +176,7 @@ InstallGlobalFunction(LeftRackByPermsNC,
Q := LeftRackByMultiplicationTableNC( Q := LeftRackByMultiplicationTableNC(
CayleyTableByPerms(perms, [1..Length(perms)])); CayleyTableByPerms(perms, [1..Length(perms)]));
SetLeftPerms(Q, perms); SetLeftPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(LeftQuandleByPerms, InstallGlobalFunction(LeftQuandleByPerms,
@ -182,6 +185,7 @@ InstallGlobalFunction(LeftQuandleByPerms,
Q := LeftQuandleByMultiplicationTable( Q := LeftQuandleByMultiplicationTable(
CayleyTableByPerms(perms, [1..Length(perms)])); CayleyTableByPerms(perms, [1..Length(perms)]));
SetLeftPerms(Q, perms); SetLeftPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(LeftQuandleByPermsNC, InstallGlobalFunction(LeftQuandleByPermsNC,
@ -190,6 +194,7 @@ InstallGlobalFunction(LeftQuandleByPermsNC,
Q := LeftQuandleByMultiplicationTableNC( Q := LeftQuandleByMultiplicationTableNC(
CayleyTableByPerms(perms, [1..Length(perms)])); CayleyTableByPerms(perms, [1..Length(perms)]));
SetLeftPerms(Q, perms); SetLeftPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(RightQuasigroupByPerms, InstallGlobalFunction(RightQuasigroupByPerms,
@ -199,6 +204,7 @@ InstallGlobalFunction(RightQuasigroupByPerms,
TransposedMat( TransposedMat(
CayleyTableByPerms(perms, [1..Length(perms)]))); CayleyTableByPerms(perms, [1..Length(perms)])));
SetRightPerms(Q, perms); SetRightPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(RightRackByPerms, InstallGlobalFunction(RightRackByPerms,
@ -208,6 +214,7 @@ InstallGlobalFunction(RightRackByPerms,
TransposedMat( TransposedMat(
CayleyTableByPerms(perms, [1..Length(perms)]))); CayleyTableByPerms(perms, [1..Length(perms)])));
SetRightPerms(Q, perms); SetRightPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(RightRackByPermsNC, InstallGlobalFunction(RightRackByPermsNC,
@ -217,6 +224,7 @@ InstallGlobalFunction(RightRackByPermsNC,
TransposedMat( TransposedMat(
CayleyTableByPerms(perms, [1..Length(perms)]))); CayleyTableByPerms(perms, [1..Length(perms)])));
SetRightPerms(Q, perms); SetRightPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(RightQuandleByPerms, InstallGlobalFunction(RightQuandleByPerms,
@ -226,6 +234,7 @@ InstallGlobalFunction(RightQuandleByPerms,
TransposedMat( TransposedMat(
CayleyTableByPerms(perms, [1..Length(perms)]))); CayleyTableByPerms(perms, [1..Length(perms)])));
SetRightPerms(Q, perms); SetRightPerms(Q, perms);
return Q;
end); end);
InstallGlobalFunction(RightQuandleByPermsNC, InstallGlobalFunction(RightQuandleByPermsNC,
@ -235,6 +244,7 @@ InstallGlobalFunction(RightQuandleByPermsNC,
TransposedMat( TransposedMat(
CayleyTableByPerms(perms, [1..Length(perms)]))); CayleyTableByPerms(perms, [1..Length(perms)])));
SetRightPerms(Q, perms); SetRightPerms(Q, perms);
return Q;
end); end);
## And define the operations ## And define the operations