projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
s/normalise/normalize/
[matthijs/master-project/cλash.git]
/
reducer.hs
diff --git
a/reducer.hs
b/reducer.hs
index 925e7f6a73fa87befc62701f6cb4d75ec841d7d6..a565745971366b1829b5040506bcf9868fdc15cb 100644
(file)
--- a/
reducer.hs
+++ b/
reducer.hs
@@
-137,7
+137,7
@@
rippleBuffer ::
rippleBuffer (State buf) (inp, shift) = (State buf', out1, out2)
where
-- Write value
rippleBuffer (State buf) (inp, shift) = (State buf', out1, out2)
where
-- Write value
- next_valids = (map
fst
buf) << True
+ next_valids = (map
(\(a, b) -> a)
buf) << True
buf'' = zipWith selects buf next_valids
selects cell next_valid = if (not (fst cell)) && next_valid then
(True, inp)
buf'' = zipWith selects buf next_valids
selects cell next_valid = if (not (fst cell)) && next_valid then
(True, inp)