|
__SmallAntimagmaHelper := rec();
__SmallAntimagmaHelper.checkOrder := function(order)
if not IsInt(order) then
ErrorNoReturn("smallantimagmas: ", "<order> must be an integer");
fi;
if order < 2 then
ErrorNoReturn("smallantimagmas:", "<order> must greater than or equal to 2");
fi;
end;
__SmallAntimagmaHelper.checkId := function(id)
if not IsInt(id) then
ErrorNoReturn("smallantimagmas: ", "<id> must be an integer");
fi;
if id < 1 then
ErrorNoReturn("smallantimagmas:", "<id> must greater than or equal to 1");
fi;
end;
__SmallAntimagmaHelper.checkOrderId := function(order, id)
__SmallAntimagmaHelper.checkOrder(order);
__SmallAntimagmaHelper.checkOrder(id);
end;
__SmallAntimagmaHelper.getSmallAntimagmaMetadataDirectory := function(order)
local result;
__SmallAntimagmaHelper.checkOrder(order);
result := DirectoriesPackageLibrary("smallantimagmas", Concatenation(["data", "/", "non-isomorphic", "/", String(order)]));
if Size(result) = 0 then
ErrorNoReturn("smallantimagmas:", "<order> is not yet implemeneted");
fi;
if Size(result) > 1 then
ErrorNoReturn("smallantimagmas:", "metadata directory must not be ambigous");
fi;
return First(result);
end;
__SmallAntimagmaHelper.getSmallAntimagmaMetadata := function(order)
local dir, files;
dir := __SmallAntimagmaHelper.getSmallAntimagmaMetadataDirectory(order);
files := SortedList(List(Filtered(DirectoryContents(dir), f -> f <> ".." and f <> "."), f -> Filename(dir, f)));
return ReadAsFunction(First(files));
end;
__SmallAntimagmaHelper.getAllSmallAntimagmaMetadataDirectory := function(order)
local result;
__SmallAntimagmaHelper.checkOrder(order);
result := DirectoriesPackageLibrary("smallantimagmas", Concatenation(["data", "/", "all", "/", String(order)]));
if Size(result) = 0 then
ErrorNoReturn("smallantimagmas:", "<order> is not yet implemeneted");
fi;
if Size(result) > 1 then
ErrorNoReturn("smallantimagmas:", "metadata directory must not be ambigous");
fi;
return First(result);
end;
__SmallAntimagmaHelper.getAllSmallAntimagmaMetadata := function(order)
local dir, files;
dir := __SmallAntimagmaHelper.getAllSmallAntimagmaMetadataDirectory(order);
files := SortedList(List(Filtered(DirectoryContents(dir), f -> f <> ".." and f <> "."), f -> Filename(dir, f)));
return ReadAsFunction(First(files));
end;
__SmallAntimagmaHelper.MultiplicationTableConvert := function(T)
local nrows;
nrows := NrRows(T);
return List(T, row -> Position(EnumeratorOfTuples([1 .. nrows], nrows), row));
end;
__SmallAntimagmaHelper.MultiplicationTableReverse := function(T)
local ncols;
ncols := Size(T);
return List(T, col -> EnumeratorOfTuples([1 .. ncols], ncols)[col]);
end;
[ Dauer der Verarbeitung: 0.28 Sekunden
(vorverarbeitet)
]
|
