mirror of
https://github.com/Jaxan/nominal-lstar.git
synced 2025-04-27 14:47:45 +02:00
27 lines
653 B
Haskell
27 lines
653 B
Haskell
{-# language PartialTypeSignatures #-}
|
|
{-# OPTIONS_GHC -Wno-missing-signatures -Wno-partial-type-signatures #-}
|
|
import Angluin (learnAngluin)
|
|
import Examples
|
|
import Teacher
|
|
|
|
import Gauge.Main
|
|
import Gauge.Main.Options
|
|
import NLambda
|
|
|
|
{- TODO: choose test framework -}
|
|
|
|
myConfig = defaultConfig
|
|
{ quickMode = True
|
|
, includeFirstIter = True
|
|
, csvFile = Just "test.csv"
|
|
}
|
|
|
|
main = defaultMainWith myConfig
|
|
[ bench "DW2" $ whnf lstarCol (target (runningExample atoms 2)) ]
|
|
|
|
-- Some (polymorphic) abbreviations
|
|
lstarCol :: _ => Teacher i -> Automaton _ i
|
|
lstarCol = learnAngluin
|
|
|
|
target :: _ => Automaton q i -> Teacher i
|
|
target = teacherWithTarget
|