From 1a77e8a2bcdcceffae276520407f4525902f9a71 Mon Sep 17 00:00:00 2001
From: kalmar <kalmar@amu.edu.pl>
Date: Mon, 17 Jul 2017 09:32:38 +0200
Subject: [PATCH] faster (RG::GroupRing)(i::Int)

---
 src/GroupRings.jl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/GroupRings.jl b/src/GroupRings.jl
index 92011ad..ffe8460 100644
--- a/src/GroupRings.jl
+++ b/src/GroupRings.jl
@@ -120,7 +120,11 @@ end
 zero(RG::GroupRing, T::Type=Int) = RG(T)
 one(RG::GroupRing, T::Type=Int) = RG(RG.group(), T)
 
-(RG::GroupRing)(i::Int, T::Type=Int) = i*one(RG, T)
+function (RG::GroupRing)(i::Int, T::Type=Int)
+   elt = RG(T)
+   elt[RG.group()] = i
+   return elt
+end
 
 function (RG::GroupRing)(T::Type=Int)
    isdefined(RG, :basis) || throw("Complete the definition of GroupRing first")