HaskellForMaths 0.1.4 → 0.1.5

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• HaskellForMaths.cabal +1/−1
• Math/Algebra/Group/PermutationGroup.hs +4/−4

@@ -1,5 +1,5 @@    Name:                HaskellForMaths
-   Version:             0.1.4
+   Version:             0.1.5
    Category:            Math
    Description:         Math library - combinatorics, group theory, commutative algebra, non-commutative algebra
    License:             BSD3

@@ -106,7 +106,7 @@ 
 closure xs fs = S.toList $ closureS xs fs
 
-orbit action x gs = closure [x] [ `action` g | g <- gs]
+orbit action x gs = closure [x] [ (`action` g) | g <- gs]
 
 x .^^ gs = orbit (.^) x gs
 orbitP gs x = orbit (.^) x gs
@@ -208,9 +208,9 @@ 
 -- |Given generators for a group, return a (sorted) list of all elements of the group
 elts :: (Num a, Ord a) => [a] -> [a]
-elts gs = closure [1] [ *g | g <- gs]
+elts gs = closure [1] [ (*g) | g <- gs]
 
-eltsS gs = closureS [1] [ *g | g <- gs]
+eltsS gs = closureS [1] [ (*g) | g <- gs]
 
 order gs = S.size $ eltsS gs -- length $ elts gs
 
@@ -246,7 +246,7 @@ -- Conjugacy class - should only be used for small groups
 h ~^^ gs = conjClass gs h
 
-conjClass gs h = closure [h] [ ~^ g | g <- gs]
+conjClass gs h = closure [h] [ (~^ g) | g <- gs]
 -- conjClass gs h = h ~^^ gs
 
 conjClassReps gs = conjClassReps' (elts gs) where