Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
N
nofib
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
9
Issues
9
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
1
Merge Requests
1
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Glasgow Haskell Compiler
nofib
Commits
022eb3a5
Commit
022eb3a5
authored
Oct 27, 2006
by
Simon Marlow
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
make some of these compile with GHC 6.6
parent
379fdc74
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
15 additions
and
17 deletions
+15
-17
parallel/parfact/parfact.hs
parallel/parfact/parfact.hs
+3
-3
parallel/parfib/Main.hs
parallel/parfib/Main.hs
+3
-4
parallel/partree/Tree.hs
parallel/partree/Tree.hs
+5
-5
parallel/partree/partree.hs
parallel/partree/partree.hs
+3
-3
parallel/prsa/Rsa.hs
parallel/prsa/Rsa.hs
+1
-2
No files found.
parallel/parfact/parfact.hs
View file @
022eb3a5
-- -*- haskell -*-
-- Time-stamp: <
Wed Mar 21 2001 17:35:09 Stardate: [-30]6363.66 hwloidl
>
-- Time-stamp: <
2005-11-09 15:46:13 simonmar
>
--
-- Doing a factorial-like computation, actually just sum, using a std
-- parallel divide-and-conquer stucture.
...
...
@@ -8,8 +8,8 @@
module
Main
(
main
)
where
import
System
(
getArgs
)
import
Parallel
import
System
.Environment
(
getArgs
)
import
Control.
Parallel
main
=
do
args
<-
getArgs
let
...
...
parallel/parfib/Main.hs
View file @
022eb3a5
-- -*- haskell -*-
-- Time-stamp: <
Fri Mar 30 2001 14:32:21 Stardate: [-30]6407.82 hwloidl
>
-- Time-stamp: <
2005-11-09 15:57:20 simonmar
>
--
-- Ever popular nfib, now in parallel.
-- Haskell98 version.
...
...
@@ -7,9 +7,8 @@
module
Main
(
main
)
where
import
System
(
getArgs
)
import
{-
fool
mkdependHS
;
ToDo
:
rm
-
}
Parallel
import
System.Environment
(
getArgs
)
import
Control.Parallel
main
=
do
args
<-
getArgs
let
...
...
parallel/partree/Tree.hs
View file @
022eb3a5
-- -*- haskell -*-
-- Time-stamp: <
Fri Mar 30 2001 16:14:33 Stardate: [-30]6408.17 hwloidl
>
-- Time-stamp: <
2005-11-09 16:03:42 simonmar
>
--
-- ADT of a binary tree (values only in leaves).
-- Parallel functions use par and seq directly.
...
...
@@ -11,13 +11,13 @@ module Tree(Tree,
depth
,
create_forest
,
force_tree
,
par_tree_map
)
where
import
Parallel
import
Control.
Parallel
infixl
2
^:
data
(
Integral
a
)
=>
Tree
a
=
Leaf
a
|
Node
(
Tree
a
)
(
Tree
a
)
deriving
(
Eq
,
Read
,
Show
)
data
Tree
a
=
Leaf
a
|
Node
(
Tree
a
)
(
Tree
a
)
deriving
(
Eq
,
Read
,
Show
)
tree_map
::
(
Integral
a
,
Integral
b
)
=>
(
a
->
b
)
->
Tree
a
->
Tree
b
tree_map
f
(
Leaf
x
)
=
Leaf
(
f
x
)
...
...
parallel/partree/partree.hs
View file @
022eb3a5
-- -*- haskell -*-
-- Time-stamp: <
Mon Apr 02 2001 14:32:45 Stardate: [-30]6422.82 hwloidl
>
-- Time-stamp: <
2005-11-09 16:02:47 simonmar
>
--
-- partree
-- parallel map over a tree
...
...
@@ -7,8 +7,8 @@
module
Main
where
import
System
(
getArgs
)
import
Parallel
import
System
.Environment
(
getArgs
)
import
Control.
Parallel
import
Tree
main
=
do
args
<-
getArgs
...
...
parallel/prsa/Rsa.hs
View file @
022eb3a5
module
Rsa
(
encrypt
,
decrypt
,
makeKeys
)
where
import
{-
fool
mkdependHS
;
ToDo
:
rm
-
}
Parallel
import
Control.Parallel
encrypt
,
decrypt
::
Integer
->
Integer
->
String
->
String
encrypt
n
e
=
unlines
.
parmap
(
show
.
power
e
n
.
code
)
.
collect
(
size
n
)
...
...
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