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

View File

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