module PPOL.Permutation.APermutation
(
)
where

import qualified Data.Array as Array

type APermutation = Array.Array Int Int

newAPermutation :: Int -> APermutation
newAPermutation n = Array.array (1,n) [(i, i) | i <- [1..n]]

fromList :: [Int] -> APermutation

fromLPermutation :: LP.LPermutation -> APermutation

toLPermutation :: APermutation -> LP.LPermutation

fromMPermutation :: MP.MPermutation -> APermutation

toMPermutation :: APermutation -> MP.MPermutation