Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -4,3 +4,4 @@
/bower_components/
/node_modules/
/output/
package-lock.json
6 changes: 3 additions & 3 deletions bower.json
Original file line number Diff line number Diff line change
Expand Up @@ -19,10 +19,10 @@
"package.json"
],
"dependencies": {
"purescript-sets": "^3.0.0",
"purescript-catenable-lists": "^4.0.0"
"purescript-ordered-collections": "^1.0.0",
"purescript-catenable-lists": "^5.0.0"
},
"devDependencies": {
"purescript-console": "^3.0.0"
"purescript-console": "^4.1.0"
}
}
6 changes: 3 additions & 3 deletions package.json
Original file line number Diff line number Diff line change
Expand Up @@ -6,8 +6,8 @@
"test": "pulp test"
},
"devDependencies": {
"pulp": "^11.0.0",
"purescript-psa": "^0.5.1",
"rimraf": "^2.6.1"
"pulp": "^12.2.0",
"purescript-psa": "^0.6.0",
"rimraf": "^2.6.2"
}
}
1 change: 0 additions & 1 deletion src/Data/Graph.purs
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,6 @@ import Data.List as L
import Data.Map (Map)
import Data.Map as M
import Data.Maybe (Maybe(..), maybe)
import Data.Monoid (mempty)
import Data.Tuple (Tuple(..), fst, snd)

-- | A graph with vertices of type `v`.
Expand Down
9 changes: 5 additions & 4 deletions test/Main.purs
Original file line number Diff line number Diff line change
@@ -1,14 +1,15 @@
module Test.Main where

import Prelude
import Control.Monad.Eff (foreachE, Eff)
import Control.Monad.Eff.Console (CONSOLE, logShow)

import Effect (Effect, foreachE)
import Effect.Console (logShow)
import Data.Graph (unfoldGraph, topologicalSort)
import Data.List (toUnfoldable, range)

main :: Eff (console :: CONSOLE) Unit
main :: Effect Unit
main = do
let double x | x * 2 < 100000 = [x * 2]
| otherwise = []
graph = unfoldGraph (range 1 100000) id double
graph = unfoldGraph (range 1 100000) identity double
foreachE (toUnfoldable (topologicalSort graph)) logShow