bad6d0e · grenade · git.iko.soy

git.iko.soy/grenade

on master help sign in

Fix input backprop

bad6d0eHuw Campbell10 years ago

src/Grenade/Recurrent/Core/Runner.hs+1−1

@@ -74,7 +74,7 @@ updateRecInputs l@LearningParameters {..} (() :~~+> xs) (() :~~+> ys)

74 = () :~~+> updateRecInputs l xs ys

76updateRecInputs l@LearningParameters {..} (x :~@+> xs) (y :~@+> ys)

77− = (realToFrac (learningRate * learningRegulariser) * x - realToFrac learningRate * y) :~@+> updateRecInputs l xs ys

77+ = (realToFrac (1 - learningRate * learningRegulariser) * x - realToFrac learningRate * y) :~@+> updateRecInputs l xs ys

79updateRecInputs _ RINil RINil

80 = RINil

test/Test/Grenade/Layers/PadCrop.hs+6

@@ -1,10 +1,16 @@

1{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE CPP #-}

2{-# LANGUAGE TemplateHaskell #-}

3{-# LANGUAGE TemplateHaskell #-}

3{-# LANGUAGE DataKinds #-}

4{-# LANGUAGE DataKinds #-}

4{-# LANGUAGE KindSignatures #-}

5{-# LANGUAGE KindSignatures #-}

5{-# LANGUAGE GADTs #-}

6{-# LANGUAGE GADTs #-}

6{-# LANGUAGE ScopedTypeVariables #-}

7{-# LANGUAGE ScopedTypeVariables #-}

7{-# OPTIONS_GHC -fno-warn-missing-signatures #-}

8{-# OPTIONS_GHC -fno-warn-missing-signatures #-}

10+#if __GLASGOW_HASKELL__ < 800

11+{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}

12+#endif

13+

8module Test.Grenade.Layers.PadCrop where

14module Test.Grenade.Layers.PadCrop where

10import Grenade

16import Grenade