1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{-# LANGUAGE OverloadedStrings #-}
module Tidal.UIB where
import Criterion.Main
import Tidal.Inputs
import Sound.Tidal.Core
import Sound.Tidal.UI
fixB :: [Benchmark]
fixB =
[ bgroup "fix" [
bench "fix whnf" $ whnf (fix (fast 2) fixArg1) fixArg2
, bench "fix nf" $ nf (fix (fast 2) fixArg1) fixArg2 ]
]
euclidB :: [Benchmark]
euclidB =
[ bgroup "euclid" [
bench "euclid" $ whnf (euclid (head ecA1) (head $ drop 1 ecA1)) ecA2
, bench "euclidFull" $ whnf (euclidFull (head ecA1) (head $ drop 1 ecA1) ecA2) ecA2
, bench "euclidBool" $ whnf (_euclidBool 1) 100000]
]
|
