Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
peregrine
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Environments
Analytics
Analytics
CI / CD
Insights
Issue
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Jobs
Commits
Open sidebar
i7
peregrine
Commits
251d80c3
Commit
251d80c3
authored
Aug 02, 2018
by
Philipp Meyer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Update pp-print program
parent
ee40c179
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
5 deletions
+2
-5
benchmarks/pp-print/pp-print.cabal
benchmarks/pp-print/pp-print.cabal
+2
-1
benchmarks/pp-print/src/PopulationProtocol.hs
benchmarks/pp-print/src/PopulationProtocol.hs
+0
-4
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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