1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#############################################################################
##
#W fplll.gi GAP library Laurent Bartholdi
##
#Y Copyright (C) 2012 Laurent Bartholdi
##
## This file deals with fplll's implementation of LLL lattice reduction
##
#!!! implement all options, arguments etc. to control quality of reduction
InstallMethod(FPLLLReducedBasis, [IsMatrix], function(m)
while not ForAll(m,r->IsSubset(Integers,r)) do
Error(m," must be an integer matrix");
od;
return @FPLLL(m,0,true,fail);
end);
InstallMethod(FPLLLShortestVector, [IsMatrix], function(m)
while not ForAll(m,r->IsSubset(Integers,r)) do
Error(m," must be an integer matrix");
od;
return @FPLLL(m,0,true,true);
end);
#############################################################################
##
#E
|
