移動したシーケンスの重複項目を削除するためにシーケンス配列をフィルタリングする問題

重複した項目を削除するためにリスト配列比較を実行する際に問題があります。私の配列は、次の一連の三項値で構成されています。

{0, 0, 1, 0, 1, 1, 1, 2, 2, 0, 1, 2, 1}  
{0, 0, 2, 0, 2, 2, 2, 1, 1, 0, 2, 1, 2}  
{0, 1, 0, 1, 1, 1, 2, 2, 0, 1, 2, 1, 0}  
{0, 1, 1, 1, 2, 2, 0, 1, 2, 1, 0, 0, 1}  
{0, 1, 2, 1, 0, 0, 1, 0, 1, 1, 1, 2, 2}    
{0, 2, 0, 2, 2, 2, 1, 1, 0, 2, 1, 2, 0}  
{0, 2, 1, 2, 0, 0, 2, 0, 2, 2, 2, 1, 1}  
{0, 2, 2, 2, 1, 1, 0, 2, 1, 2, 0, 0, 2}  
{1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 0, 1, 2}  
{1, 0, 1, 1, 1, 2, 2, 0, 1, 2, 1, 0, 0}  
{1, 0, 2, 1, 2, 0, 0, 2, 0, 2, 2, 2, 1}  
{1, 1, 0, 2, 1, 2, 0, 0, 2, 0, 2, 2, 2}  
{1, 1, 1, 2, 2, 0, 1, 2, 1, 0, 0, 1, 0}  
{1, 1, 2, 2, 0, 1, 2, 1, 0, 0, 1, 0, 1}  
{1, 2, 0, 0, 2, 0, 2, 2, 2, 1, 1, 0, 2}  
{1, 2, 1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 0}  
{1, 2, 2, 0, 1, 2, 1, 0, 0, 1, 0, 1, 1}  
{2, 0, 0, 2, 0, 2, 2, 2, 1, 1, 0, 2, 1}

2つのシーケンスが同じかどうかを識別するMathematicaスクリプトラッパーであるsubscript testequence.shの助けを借りて、whileループを使用して重複する項目を見つけようとします。

{0, 0, 1, 0, 1, 1, 1, 2, 2, 0, 1, 2, 1}  
{0, 1, 0, 1, 1, 1, 2, 2, 0, 1, 2, 1, 0}

これら2つは同じで、左に移動しました。この場合、下付き文字は1を返し、下付き文字は次のように使用されます。

./testsequence.sh "`echo ${foundsequence[0]}`" "`echo ${foundsequence[1]}`"

私の最初の試みは、whileループを使用して最初のシーケンスのみを他のシーケンスと比較し、重複した項目の半分だけを削除することでした。

良い結果は次のとおりです。

{0, 0, 1, 0, 1, 1, 1, 2, 2, 0, 1, 2, 1}  
{0, 0, 2, 0, 2, 2, 2, 1, 1, 0, 2, 1, 2}  

これは、リスト内の唯一の2つのユニークなシーケンスであるためです。

配列のシーケンスは固定長ではありません。長さは 2 から 121 以上であってもよい。そのため、配列の2行を比較するために添え字を保持したいと思います。