Rahn_1980.hs

-- | John Rahn. /Basic Atonal Theory/. Longman, New York, 1980.
module Music.Theory.Z.Rahn_1980 where

import qualified Music.Theory.Z.Forte_1973 as Forte_1973 {- hmt -}
import Music.Theory.Z {- hmt -}

-- | Rahn prime form (comparison is rightmost inwards).
--
-- > rahn_cmp [0,1,3,6,8,9] [0,2,3,6,7,9] == GT
rahn_cmp :: Ord a => [a] -> [a] -> Ordering
rahn_cmp p q = compare (reverse p) (reverse q)

-- | Rahn prime form, ie. 'Forte_1973.ti_cmp_prime' of 'rahn_cmp'.
--
-- > z_rahn_prime z12 [0,1,3,6,8,9] == [0,2,3,6,7,9]
z_rahn_prime :: Integral i => Z i -> [i] -> [i]
z_rahn_prime z = Forte_1973.z_ti_cmp_prime z rahn_cmp

-- | The six sets where the Forte and Rahn prime forms differ.
--   Given here in Forte prime form.
--
-- > all (\p -> Forte_1973.forte_prime z12 p /= rahn_prime z12 p) rahn_forte_diff == True
rahn_forte_diff :: Num n => [[n]]
rahn_forte_diff =
  [[0,1,3,7,8] -- #5
  ,[0,1,3,5,8,9],[0,1,3,6,8,9] -- #6
  ,[0,1,2,4,7,8,9],[0,1,2,3,5,8,9] -- #7
  ,[0,1,2,4,5,7,9,10] -- #8
  ]