Kulitta-2.2.1: Library for automated composition and musical learning

Safe HaskellNone
LanguageHaskell98

Kulitta.Learning.Learning

Documentation

type RRule a = Rule a Source #

type PRule a = (Double, (a, [a])) Source #

data Grammar Source #

Constructors

GramPCFG (RTerm, [RRule RTerm]) 
GramOther 

data DataSet Source #

Constructors

DataPCFG [(Int, Mode, [CType])] 
DataOther 

fixLHS :: (a, b) -> ((a, Rational), b) Source #

mainSub2 :: (Eq a, Show a) => Params -> [RRule (CType, Rational)] -> p1 -> [TStr a] -> p2 -> TOracle a -> Int -> IO [Double] Source #

sampleFile :: Show a => Params -> a -> [Char] Source #

averageLength :: (Fractional a1, Foldable t) => [t a2] -> a1 Source #

makeQs :: Eq a => Params -> [RRule a] -> [Double] Source #

makeQsT :: Eq a => Params -> [RRule a] -> [Double] Source #

mainSub1 :: (Show a, Eq a) => Params -> [RRule RTerm] -> p1 -> [[a]] -> p2 -> TOracle a -> Int -> IO [Double] Source #

getPhi :: (a, b, c, d) -> d Source #

stats :: Show a => a -> Params -> [Char] Source #

sameLHS :: Eq a => PRule a -> PRule a -> Bool Source #

ecOp :: (Eq a, Show a) => [PRule a] -> String Source #

checkProbs :: (Eq a, Show a) => [PRule a] -> String Source #

showRule' :: Show a => (a, [a]) -> String Source #

showInter :: Show a => String -> [a] -> String Source #

mkQTable :: [Int] -> [RRule RTerm] -> [[Double]] -> String Source #

randomData :: Int -> Int -> [[a]] -> [[a]] Source #

splitBy :: Eq a => a -> [a] -> [[a]] Source #

splitBy2 :: Eq a => [a] -> [a] -> [[a]] Source #

printPCFG :: (Show a, Foldable t) => (a, t (RRule RTerm)) -> IO () Source #

iotr :: [(RTerm, [RTerm])] Source #

fst3 :: (a, b, c) -> a Source #

snd3 :: (a, b, c) -> b Source #

thd :: (a, b, c) -> c Source #

procChords :: [(Int, Mode, [CType])] -> Params -> [RRule RTerm] -> RTerm -> [[RTerm]] Source #

procChords2 :: [(Int, Mode, [RTerm])] -> Params -> [RRule RTerm] -> RTerm -> [[RTerm]] Source #

parseable :: Eq a => [Rule a] -> a -> [a] -> Bool Source #

findByRHS1 :: Eq a => [RRule a] -> TStr a -> [TRuleInst a] Source #

ruleGroups1 :: Eq a => [RRule a] -> [[RuleIndex]] Source #

findByRHS2 :: Eq a => [RRule (a, Rational)] -> TStr (a, Rational) -> [TRuleInst (a, Rational)] Source #

ruleGroups2 :: Eq a => [RRule a] -> [[RuleIndex]] Source #