-
-
Notifications
You must be signed in to change notification settings - Fork 260
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
86 changed files
with
11,049 additions
and
9,057 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,21 @@ | ||
| name: Create dependency bump PR | ||
| on: | ||
| # allows manual triggering from https://github.com/../../actions/workflows/bump.yml | ||
| workflow_dispatch: | ||
| # runs weekly on Thursday at 8:00 | ||
| schedule: | ||
| - cron: '0 8 * * 4' | ||
|
|
||
| permissions: | ||
| contents: write | ||
| pull-requests: write | ||
|
|
||
| jobs: | ||
| bump: | ||
| runs-on: ubuntu-latest | ||
| steps: | ||
| - uses: nomeata/haskell-bounds-bump-action@main | ||
| with: | ||
| test: false | ||
|
|
||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,2 +1,3 @@ | ||
| import Distribution.Simple | ||
|
|
||
| main = defaultMain |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,10 +1,10 @@ | ||
| module Main where | ||
| module Main where | ||
|
|
||
| import Weigh | ||
| import Tidal.UIB | ||
| import Weigh | ||
|
|
||
| main :: IO () | ||
| main = | ||
| mainWith $ do | ||
| main :: IO () | ||
| main = | ||
| mainWith $ do | ||
| euclidB | ||
| fixB |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,19 +1,19 @@ | ||
| module Tidal.UIB where | ||
| module Tidal.UIB where | ||
|
|
||
| import Weigh | ||
| import Tidal.Inputs | ||
| import Sound.Tidal.Context | ||
| import Tidal.Inputs | ||
| import Weigh | ||
|
|
||
| fixB :: Weigh () | ||
| fixB = | ||
| fixB :: Weigh () | ||
| fixB = | ||
| wgroup "fix weigh" $ do | ||
| columns | ||
| func "fix 1" (fix (fast 2) fixArg1) fixArg2 | ||
|
|
||
| euclidB :: Weigh () | ||
| euclidB = | ||
| wgroup "euclid" $ do | ||
| columns | ||
| euclidB :: Weigh () | ||
| euclidB = | ||
| wgroup "euclid" $ do | ||
| columns | ||
| func "euclid" (euclid (head ecA1) (head $ drop 1 ecA1)) ecA2 | ||
| func "euclidFull" (euclidFull (head ecA1) (head $ drop 1 ecA1) ecA2) ecA2 | ||
| func "euclidBool" (_euclidBool 1) 100000 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,22 +1,22 @@ | ||
| module Main where | ||
|
|
||
| import Criterion.Main | ||
| import Tidal.PatternB | ||
| import Criterion.Main | ||
| import Tidal.CoreB | ||
| import Tidal.PatternB | ||
| import Tidal.UIB | ||
|
|
||
| patternBs :: [IO ()] | ||
| patternBs :: [IO ()] | ||
| patternBs = defaultMain <$> [withQueryTimeB, withQueryArcB, withResultArcB, withQueryTimeB, subArcB] | ||
|
|
||
| coreBs :: [IO ()] | ||
| coreBs :: [IO ()] | ||
| coreBs = defaultMain <$> [fromListB, stackB, appendB, concatB, _fastB] | ||
|
|
||
| uiBs :: [IO ()] | ||
| uiBs = defaultMain <$> [euclidB, fixB] | ||
|
|
||
| main :: IO () | ||
| main = do | ||
| _ <- sequence coreBs | ||
| main = do | ||
| _ <- sequence coreBs | ||
| _ <- sequence patternBs | ||
| _ <- sequence uiBs | ||
| return () |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,50 +1,60 @@ | ||
| module Tidal.CoreB where | ||
| module Tidal.CoreB where | ||
|
|
||
| import Criterion.Main | ||
| import Tidal.Inputs | ||
| import Criterion.Main | ||
| import Sound.Tidal.Core | ||
| import Sound.Tidal.Pattern | ||
| import Sound.Tidal.Core | ||
| import Tidal.Inputs | ||
|
|
||
| _fastB :: [Benchmark] | ||
| _fastB = | ||
| [ bgroup "_fast" [ | ||
| bench "_fast < 0" $ whnf (_fast (-2)) pattApp2 | ||
| , bench "_fast > 0" $ whnf (_fast (toTime $ 10^6)) (cat catPattBig) ] | ||
| _fastB = | ||
| [ bgroup | ||
| "_fast" | ||
| [ bench "_fast < 0" $ whnf (_fast (-2)) pattApp2, | ||
| bench "_fast > 0" $ whnf (_fast (toTime $ 10 ^ 6)) (cat catPattBig) | ||
| ] | ||
| ] | ||
|
|
||
| concatB :: [Benchmark] | ||
| concatB = | ||
| [ bgroup "concat" [ | ||
| bench "fastCat 10^3" $ whnf fastCat catPattSmall | ||
| , bench "fastCat 10^4" $ whnf fastCat catPattMed | ||
| , bench "fastCat 10^5" $ whnf fastCat catPattMedB | ||
| , bench "fastCat 10^6" $ whnf fastCat catPattBig | ||
| , bench "timeCat 10^5" $ whnf timeCat timeCatMed | ||
| , bench "timeCat 10^6" $ whnf timeCat timeCatBig ] | ||
| concatB :: [Benchmark] | ||
| concatB = | ||
| [ bgroup | ||
| "concat" | ||
| [ bench "fastCat 10^3" $ whnf fastCat catPattSmall, | ||
| bench "fastCat 10^4" $ whnf fastCat catPattMed, | ||
| bench "fastCat 10^5" $ whnf fastCat catPattMedB, | ||
| bench "fastCat 10^6" $ whnf fastCat catPattBig, | ||
| bench "timeCat 10^5" $ whnf timeCat timeCatMed, | ||
| bench "timeCat 10^6" $ whnf timeCat timeCatBig | ||
| ] | ||
| ] | ||
|
|
||
| fromListB :: [Benchmark] | ||
| fromListB = | ||
| [ bgroup "fromList" [ | ||
| bench "fromList" $ whnf fromList xs6 | ||
| , bench "fromList nf" $ nf fromList xs6 | ||
| , bench "fastFromList 10^3" $ whnf fastFromList xs3 | ||
| , bench "fastFromList 10^4" $ whnf fastFromList xs4 | ||
| , bench "fastFromList 10^5" $ whnf fastFromList xs5 | ||
| , bench "fastFromList 10^6" $ whnf fastFromList xs6 | ||
| , bench "fastFromList 10^6 nf" $ nf fastFromList xs6 ] | ||
| fromListB = | ||
| [ bgroup | ||
| "fromList" | ||
| [ bench "fromList" $ whnf fromList xs6, | ||
| bench "fromList nf" $ nf fromList xs6, | ||
| bench "fastFromList 10^3" $ whnf fastFromList xs3, | ||
| bench "fastFromList 10^4" $ whnf fastFromList xs4, | ||
| bench "fastFromList 10^5" $ whnf fastFromList xs5, | ||
| bench "fastFromList 10^6" $ whnf fastFromList xs6, | ||
| bench "fastFromList 10^6 nf" $ nf fastFromList xs6 | ||
| ] | ||
| ] | ||
|
|
||
| appendB :: [Benchmark] | ||
| appendB = | ||
| [ bgroup "append" [ | ||
| bench "append" $ whnf (append pattApp1) pattApp2 | ||
| , bench "fastAppend" $ whnf (fastAppend pattApp1) pattApp2 ] | ||
| appendB :: [Benchmark] | ||
| appendB = | ||
| [ bgroup | ||
| "append" | ||
| [ bench "append" $ whnf (append pattApp1) pattApp2, | ||
| bench "fastAppend" $ whnf (fastAppend pattApp1) pattApp2 | ||
| ] | ||
| ] | ||
|
|
||
| stackB :: [Benchmark] | ||
| stackB = | ||
| [ bgroup "stack" [ | ||
| bench "overlay" $ whnf (overlay pattApp1) pattApp2 | ||
| , bench "stack" $ whnf stack catPattBig ] | ||
| stackB :: [Benchmark] | ||
| stackB = | ||
| [ bgroup | ||
| "stack" | ||
| [ bench "overlay" $ whnf (overlay pattApp1) pattApp2, | ||
| bench "stack" $ whnf stack catPattBig | ||
| ] | ||
| ] |
Oops, something went wrong.