#  このディレクトリの索引
#  出典 :: スレ立てるまでもない質問はここで135代目 #755
#  **--*
#  ***-*
#  *---*
#  **-**
#  **-**
#  
#  var a=[
#  "**--*",
#  "***-*",
#  "*---*",
#  "**-**",
#  "**-**",
#  ];
#  ハイフンの位置を取得して連想配列に入れる方法おしえてください
#  var ithi = [
#  [2,3],
#  [3],
#  [1,2,3],
#  [2],
#  [2],
#  ] 

ハイフンの位置を取得して連想配列に入れる方法おしえてください(_文字列,L,LL) :-
        split(_文字列,['\n'],L),
        findall(L1,(
                    member(_副文字列,L),
                    findall(_nth0,(
                                sub_abom(_副文字列,_nth0,1,_,'-')),
                            L1)),
                LL).