acw/cryptonum
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace Variable Strings with Words.

Browse Source
This commit is contained in:
Adam Wick
2020-04-12 19:53:42 -07:00
parent 0483bb8692
commit 9ee668daad
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
generation/src/Karatsuba.hs
View File

@@ -53,7 +53,7 @@ generateInstructions numdigits =
-- --
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
newtype Variable = V String newtype Variable = V Word
deriving (Eq, Ord, Show) deriving (Eq, Ord, Show)
-- these are in Intel form, as I was corrupted young, so the first argument -- these are in Intel form, as I was corrupted young, so the first argument
@@ -136,9 +136,9 @@ replaceVar ls (from, to) = map replace ls
-- --
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
newtype Math a = Math { unMath :: RWS () [Instruction] Integer a } newtype Math a = Math { unMath :: RWS () [Instruction] Word a }
deriving (Applicative, Functor, Monad, deriving (Applicative, Functor, Monad,
MonadState Integer, MonadState Word,
MonadWriter [Instruction]) MonadWriter [Instruction])
instance MonadFail Math where instance MonadFail Math where
@@ -150,7 +150,7 @@ emit instr = tell [instr]
newVariable :: Math Variable newVariable :: Math Variable
newVariable = newVariable =
do x <- state (\ i -> (i, i + 1)) do x <- state (\ i -> (i, i + 1))
return (V (show x)) return (V x)
runMath :: Math a -> (a, [Instruction]) runMath :: Math a -> (a, [Instruction])
runMath m = evalRWS (unMath m) () 0 runMath m = evalRWS (unMath m) () 0