今回のケースで言うとソートじゃなくて数えあげの方がFOR文も2重にならないし楽なんじゃないのかなと思います。 トリオの判定もC1C2C3に指定のかーどの種類を渡してやる関数でいいのかなと思うんですが DEF JUDGECOMBI(C1,C2,C3) IF COUNT[C1]!=0 &&COUNT[C2]!=0&&COUNT[C3]!=0 THEN RETURN 1 RETURN-1 END