Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
9.2.2023: Due to updates GitLab will be unavailable for some minutes between 9:00 and 11:00.
Open sidebar
i7
peregrine
Commits
251d80c3
Commit
251d80c3
authored
Aug 02, 2018
by
Philipp Meyer
Browse files
Update pp-print program
parent
ee40c179
Changes
2
Hide whitespace changes
Inline
Side-by-side
benchmarks/pp-print/pp-print.cabal
View file @
251d80c3
...
...
@@ -21,6 +21,7 @@ executable pp-print
main-is: Main.hs
other-modules:
-- other-extensions:
build-depends:
multiset,
base >= 4.8, containers, aeson, aeson-pretty, bytestring
build-depends: base >= 4.8, containers, aeson, aeson-pretty, bytestring
hs-source-dirs: src
default-language: Haskell2010
ghc-options: -dynamic
benchmarks/pp-print/src/PopulationProtocol.hs
View file @
251d80c3
module
PopulationProtocol
(
PopulationProtocol
(
..
)
,
Population
,
createModuloProtocol
,
createThresholdProtocol
,
createOldThresholdProtocol
...
...
@@ -18,7 +17,6 @@ module PopulationProtocol ( PopulationProtocol (..)
import
Util
import
qualified
Data.Set
as
S
import
qualified
Data.MultiSet
as
MS
import
qualified
Data.Map.Strict
as
M
import
Data.Tuple
(
swap
)
import
Data.List
(
intercalate
,
nub
)
...
...
@@ -47,8 +45,6 @@ type FlockOfBirdsProtocol = PopulationProtocol Int
type
VerifiableFlockOfBirdsProtocol
=
PopulationProtocol
(
Bool
,
Int
)
type
Population
qs
=
MS
.
MultiSet
qs
data
ThresholdState
=
Neg
Int
|
Pos
Int
|
BiasPos
Int
|
Passive
Bool
deriving
(
Ord
,
Eq
,
Show
)
data
SimpleState
=
L
Int
|
NL
Int
deriving
(
Ord
,
Eq
,
Show
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment