HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0529
Agr配列内の文字を整理したい1未解決


Agr

リンク

2019/5/29(Wed) 20:14:33|NO.87509

例えば毎回違うのですが300〜500程度の配列の中に
「りんご、みかん、りんご、梨、みかん、スイカ、スイカ、りんご、なし、メロン…」
と言うように果物が1種類〜100種類程度ランダムに入っているとして、
別途配列を用意して、各果物を一つずつ入れたいです
上記の例だと、
「りんご、みかん、梨、スイカ、メロン」
とするような感じです

初心者でも分かる方法でこれを実現する方法を教えて頂けますか?



この記事に返信する


さか

リンク

2019/5/29(Wed) 20:30:49|NO.87510

これでどうでしょう。
説明にある"梨"と"なし"は打ち間違いと思って対応してないです。


; データ準備 data1 = "りんご","みかん","りんご","梨","みかん","スイカ","スイカ","りんご","梨","メロン" ; 文字列ソート sortstr data1 mes "ソート結果" repeat length( data1 ): mes data1( cnt ): loop ; data1を順番に読み込みdata2へセット data2( 0 ) = data1( 0 ) ix = 0 repeat length( data1 ) ;既にセット済のものはスキップ if data2( ix ) = data1( cnt ): continue ;セット ix ++ data2( ix ) = data1( cnt ) loop mes "\n結果" repeat length( data2 ): mes data2( cnt ): loop



ONION software Copyright 1997-2021(c) All rights reserved.