{-# OPTIONS_HADDOCK show-extensions #-}

-- |
-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2Common
-- Copyright   :  (c) OleksandrZhabenko 2020-2022
-- License     :  MIT
-- Stability   :  Experimental
-- Maintainer  :  olexandr543@yahoo.com
--
-- Generalization and extension of the functionality of the DobutokO.Poetry.Norms
-- and DobutokO.Poetry.Norms.Extended modules
-- from the @dobutokO-poetry@ package. Uses syllables information.
-- Instead of the vector-related, uses just arrays.

{-# LANGUAGE CPP, BangPatterns #-}

module Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2Common where

#ifdef __GLASGOW_HASKELL__
#if __GLASGOW_HASKELL__>=710
/* code that applies only to GHC 7.10.* and higher versions */
import GHC.Base (mconcat)
#endif
#endif

import Melodics.Ukrainian.ArrInt8 (Sound8,FlowSound)
import Languages.Phonetic.Ukrainian.Syllable.ArrInt8
import GHC.Arr
import GHC.Int
import Phonetic.Languages.Emphasis

#ifdef __GLASGOW_HASKELL__
#if __GLASGOW_HASKELL__==708
/* code that applies only to GHC 7.8.* */
mconcat = concat
#endif
#endif

rhythmicityGHTup
 :: Array Int (Int8, Bool)
 -> Array Int (Int8, Bool)
 -> Array Int (Int8, Bool)
 -> Array Int (Int8, Bool)
 -> Array Int ([Int8], Bool)
 -> Array Int ([Int8], Int8)
 -> Array Int (Int8, FlowSound -> Sound8)
 -> Array Int (Int8, Bool)
 -> Array Int ([Int8], Bool)
 -> Array Int ([Int8], Bool)
 -> Array Int ([Int8], Bool)
 -> Array Int (Int8, [Int8])
 -> Array Int (Char,Int8)
 -> Array Int (Int8,[Int8])
 -> Array Int (Char, Bool)
 -> Array Int (Char, Bool)
 -> Array Int (Int8,Bool)
 -> ([[[Sound8]]] -> [[Double]])
 -> ([[Double]] -> Double)
 -> ReadyForConstructionUkr
 -> Double
rhythmicityGHTup :: Array Int (Int8, Bool)
-> Array Int (Int8, Bool)
-> Array Int (Int8, Bool)
-> Array Int (Int8, Bool)
-> Array Int ([Int8], Bool)
-> Array Int ([Int8], Int8)
-> Array Int (Int8, [Int8] -> Int8)
-> Array Int (Int8, Bool)
-> Array Int ([Int8], Bool)
-> Array Int ([Int8], Bool)
-> Array Int ([Int8], Bool)
-> Array Int (Int8, [Int8])
-> Array Int (Char, Int8)
-> Array Int (Int8, [Int8])
-> Array Int (Char, Bool)
-> Array Int (Char, Bool)
-> Array Int (Int8, Bool)
-> ([[[Int8]]] -> [[Double]])
-> ([[Double]] -> Double)
-> ReadyForConstructionUkr
-> Double
rhythmicityGHTup Array Int (Int8, Bool)
tup1 Array Int (Int8, Bool)
tup2 Array Int (Int8, Bool)
tup3 Array Int (Int8, Bool)
tup4 Array Int ([Int8], Bool)
tup5 Array Int ([Int8], Int8)
tup6 Array Int (Int8, [Int8] -> Int8)
tup7 Array Int (Int8, Bool)
tup8 Array Int ([Int8], Bool)
tup9 Array Int ([Int8], Bool)
tup10 Array Int ([Int8], Bool)
tup11 Array Int (Int8, [Int8])
tup12 Array Int (Char, Int8)
tup13 Array Int (Int8, [Int8])
tup14 Array Int (Char, Bool)
tup15 Array Int (Char, Bool)
tup16 Array Int (Int8, Bool)
tup17 [[[Int8]]] -> [[Double]]
f [[Double]] -> Double
g (Str xs :: String
xs@(Char
_:String
_))
 = [[Double]] -> Double
g forall b c a. (b -> c) -> (a -> b) -> a -> c
. [[[Int8]]] -> [[Double]]
f forall b c a. (b -> c) -> (a -> b) -> a -> c
. Array Int (Int8, Bool)
-> Array Int (Int8, Bool)
-> Array Int (Int8, Bool)
-> Array Int (Int8, Bool)
-> Array Int ([Int8], Bool)
-> Array Int ([Int8], Int8)
-> Array Int (Int8, [Int8] -> Int8)
-> Array Int (Int8, Bool)
-> Array Int ([Int8], Bool)
-> Array Int ([Int8], Bool)
-> Array Int ([Int8], Bool)
-> Array Int (Int8, [Int8])
-> Array Int (Char, Int8)
-> Array Int (Int8, [Int8])
-> Array Int (Char, Bool)
-> Array Int (Char, Bool)
-> Array Int (Int8, Bool)
-> String
-> [[[Int8]]]
createSyllablesUkrSTup Array Int (Int8, Bool)
tup1 Array Int (Int8, Bool)
tup2 Array Int (Int8, Bool)
tup3 Array Int (Int8, Bool)
tup4 Array Int ([Int8], Bool)
tup5 Array Int ([Int8], Int8)
tup6 Array Int (Int8, [Int8] -> Int8)
tup7 Array Int (Int8, Bool)
tup8 Array Int ([Int8], Bool)
tup9 Array Int ([Int8], Bool)
tup10 Array Int ([Int8], Bool)
tup11 Array Int (Int8, [Int8])
tup12 Array Int (Char, Int8)
tup13 Array Int (Int8, [Int8])
tup14 Array Int (Char, Bool)
tup15 Array Int (Char, Bool)
tup16 Array Int (Int8, Bool)
tup17 forall a b. (a -> b) -> a -> b
$ String
xs
rhythmicityGHTup Array Int (Int8, Bool)
_ Array Int (Int8, Bool)
_ Array Int (Int8, Bool)
_ Array Int (Int8, Bool)
_ Array Int ([Int8], Bool)
_ Array Int ([Int8], Int8)
_ Array Int (Int8, [Int8] -> Int8)
_ Array Int (Int8, Bool)
_ Array Int ([Int8], Bool)
_ Array Int ([Int8], Bool)
_ Array Int ([Int8], Bool)
_ Array Int (Int8, [Int8])
_ Array Int (Char, Int8)
_ Array Int (Int8, [Int8])
_ Array Int (Char, Bool)
_ Array Int (Char, Bool)
_ Array Int (Int8, Bool)
_ [[[Int8]]] -> [[Double]]
f [[Double]] -> Double
g (FSL xsss :: [[[Int8]]]
xsss@([[Int8]]
_:[[[Int8]]]
_)) = [[Double]] -> Double
g forall b c a. (b -> c) -> (a -> b) -> a -> c
. [[[Int8]]] -> [[Double]]
f forall a b. (a -> b) -> a -> b
$ [[[Int8]]]
xsss 
rhythmicityGHTup Array Int (Int8, Bool)
_ Array Int (Int8, Bool)
_ Array Int (Int8, Bool)
_ Array Int (Int8, Bool)
_ Array Int ([Int8], Bool)
_ Array Int ([Int8], Int8)
_ Array Int (Int8, [Int8] -> Int8)
_ Array Int (Int8, Bool)
_ Array Int ([Int8], Bool)
_ Array Int ([Int8], Bool)
_ Array Int ([Int8], Bool)
_ Array Int (Int8, [Int8])
_ Array Int (Char, Int8)
_ Array Int (Int8, [Int8])
_ Array Int (Char, Bool)
_ Array Int (Char, Bool)
_ Array Int (Int8, Bool)
_ [[[Int8]]] -> [[Double]]
_ [[Double]] -> Double
_ ReadyForConstructionUkr
_ = Double
0.0
{-# INLINE rhythmicityGHTup #-}