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

need to type the argument to call a function :-)

This commit is contained in:
Glen Whitney 2017-10-19 01:35:13 +02:00
parent b6811bc762
commit b4fa1cfd3c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gap/structure.gi
View File

@ -297,7 +297,7 @@ InstallMethod(DisplayString, "for a rightt quasigroup",
InstallMethod(Display, "for a left quasigroup with multiplication table", InstallMethod(Display, "for a left quasigroup with multiplication table",
[IsLeftQuasigroup and HasMultiplicationTable], [IsLeftQuasigroup and HasMultiplicationTable],
function(Q) function(Q)
Print(LeftObjString@, " with ", Size(Q), Print(LeftObjString@(Q), " with ", Size(Q),
" elements, generated by ", " elements, generated by ",
GeneratorsOfLeftQuasigroup(Q), ", with table\n"); GeneratorsOfLeftQuasigroup(Q), ", with table\n");
Display(MultiplicationTable(Q)); Display(MultiplicationTable(Q));
@ -306,19 +306,19 @@ end);
InstallMethod(Display, "for a right quasigroup with multiplication table", InstallMethod(Display, "for a right quasigroup with multiplication table",
[IsRightQuasigroup and HasMultiplicationTable], [IsRightQuasigroup and HasMultiplicationTable],
function(Q) function(Q)
Print(RightObjString@, " with ", Size(Q), Print(RightObjString@(Q), " with ", Size(Q),
" elements, generated by ", " elements, generated by ",
GeneratorsOfRightQuasigroup(Q), ", with table\n"); GeneratorsOfRightQuasigroup(Q), ", with table\n");
Display(MultiplicationTable(Q)); Display(MultiplicationTable(Q));
end); end);
LeftObjView@ := function(Q) LeftObjView@ := function(Q)
if HasIsLeftRack(Q) and IsLeftRack(Q) then return "<left rack"; fi; if IsLeftRack(Q) then return "<left rack"; fi;
return "<left quasigroup"; return "<left quasigroup";
end; end;
RightObjView@ := function(Q) RightObjView@ := function(Q)
if HasIsRightRack(Q) and IsRightRack(Q) then return "<right rack"; fi; if IsRightRack(Q) then return "<right rack"; fi;
return "<right quasigroup"; return "<right quasigroup";
end; end;