Auxiliary.hs

-- |
-- Module      :  DobutokO.Poetry.Auxiliary
-- Copyright   :  (c) OleksandrZhabenko 2020
-- License     :  MIT
-- Stability   :  Experimental
-- Maintainer  :  olexandr543@yahoo.com
--
-- Helps to order the 7 or less Ukrainian words (or their concatenations) 
-- to obtain (to some extent) suitable for poetry or music text.

module DobutokO.Poetry.Auxiliary (
  -- * Help functions
  fourFrom5
  , lastFrom5  
  , twoFrom3
  , lastFrom3
) where

twoFrom3 :: (a,b,c) -> (a,b)
twoFrom3 (x,y,_) = (x,y)

lastFrom3 :: (a,b,c) -> c
lastFrom3 (_,_,z) = z

fourFrom5 :: (a,b,b,b,c) -> (a,b,b,b)
fourFrom5 (x,y0,y1,y2,_) = (x,y0,y1,y2)

lastFrom5 :: (a,b,b,b,c) -> c
lastFrom5 (_,_,_,_,z) = z