{-# OPTIONS_HADDOCK show-extensions #-}
-- |
-- Module : Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG23Old
-- 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.PropertiesFuncRepG23Old (
-- * Functions with 'Double'
-- ** NEW Working with generated by r-glpk-phonetic-languages-ukrainian-durations syllable durations
procBoth3F
, procBoth3FF
, procBoth3InvF
, procBoth3InvFF
) where
import Phonetic.Languages.Array.Ukrainian.Common
import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
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)
procBoth3F
:: (Ord c) => (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth3F g coeffs = procB2F g SD.syllableDurationsD3 coeffs
{-# INLINE procBoth3F #-}
procBoth3InvF
:: (Ord c) => (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth3InvF g coeffs = procB2InvF g SD.syllableDurationsD3 coeffs
{-# INLINE procBoth3InvF #-}
procBoth3FF
:: (Ord c) => Double
-> (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth3FF k g coeffs = procB2FF k g SD.syllableDurationsD3 coeffs
{-# INLINE procBoth3FF #-}
procBoth3InvFF
:: (Ord c) => Double
-> (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth3InvFF k g coeffs = procB2InvFF k g SD.syllableDurationsD3 coeffs
{-# INLINE procBoth3InvFF #-}