{-# OPTIONS_HADDOCK show-extensions #-}

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

module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG22 (
  -- * Functions with 'Double'
  -- ** With tuples
  procBoth2FTup
  , procBoth2FFTup
  , procBoth2InvFTup
  , procBoth2InvFFTup
) where

import Phonetic.Languages.Array.Ukrainian.Common
import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2Common
import Phonetic.Languages.Basis
import qualified Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8 as SD
import Melodics.Ukrainian.ArrInt8
import GHC.Arr (Array)
import GHC.Int (Int8)
import Phonetic.Languages.Emphasis

procBoth2FTup
  :: (Ord 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, 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)
  -> (Double -> c)
  -> Coeffs2
  -> FuncRep2 ReadyForConstructionUkr Double c
procBoth2FTup :: 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)
-> (Double -> c)
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procBoth2FTup 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 Double -> c
g Coeffs2
coeffs
 = 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)
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
forall c.
Ord 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)
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procB2FTup 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 Double -> c
g [[[Int8]]] -> [[Double]]
SD.syllableDurationsD2 Coeffs2
coeffs
{-# INLINE procBoth2FTup #-}

procBoth2FFTup
  :: (Ord 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, 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)
  -> Double
  -> (Double -> c)
  -> Coeffs2
  -> FuncRep2 ReadyForConstructionUkr Double c
procBoth2FFTup :: 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)
-> Double
-> (Double -> c)
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procBoth2FFTup 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 Double
k Double -> c
g Coeffs2
coeffs
 = 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)
-> Double
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
forall c.
Ord 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)
-> Double
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procB2FFTup 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 Double
k Double -> c
g [[[Int8]]] -> [[Double]]
SD.syllableDurationsD2 Coeffs2
coeffs
{-# INLINE procBoth2FFTup #-}

procBoth2InvFTup
  :: (Ord 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, 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)
  -> (Double -> c)
  -> Coeffs2
  -> FuncRep2 ReadyForConstructionUkr Double c
procBoth2InvFTup :: 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)
-> (Double -> c)
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procBoth2InvFTup 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 Double -> c
g Coeffs2
coeffs
 = 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)
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
forall c.
Ord 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)
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procB2InvFTup 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 Double -> c
g [[[Int8]]] -> [[Double]]
SD.syllableDurationsD2 Coeffs2
coeffs
{-# INLINE procBoth2InvFTup #-}

procBoth2InvFFTup
  :: (Ord 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, 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)
  -> Double
  -> (Double -> c)
  -> Coeffs2
  -> FuncRep2 ReadyForConstructionUkr Double c
procBoth2InvFFTup :: 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)
-> Double
-> (Double -> c)
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procBoth2InvFFTup 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 Double
k Double -> c
g Coeffs2
coeffs
 = 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)
-> Double
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
forall c.
Ord 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)
-> Double
-> (Double -> c)
-> ([[[Int8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 ReadyForConstructionUkr Double c
procB2InvFFTup 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 Double
k Double -> c
g [[[Int8]]] -> [[Double]]
SD.syllableDurationsD2 Coeffs2
coeffs
{-# INLINE procBoth2InvFFTup #-}