インデックスによって文字列から一部の文字を削除します（Raku）

FAQ：Rakuでは、インデックスに基づいて、文字列から一部の文字をどのように削除しますか？

インデックス1から3および8を削除したいとします

xxx("0123456789", (1..3, 8).flat);  # 045679

Shnipersonsのバリアントの答え：

my $a='0123456789';
with $a {$_=.comb[(^* ∖ (1..3, 8).flat).keys.sort].join};
say $a;

1行で：

say '0123456789'.comb[(^* ∖ (1..3, 8).flat).keys.sort].join;

または関数によって呼び出されます：

sub remove($str, $a) {
    $str.comb[(^* ∖ $a.flat).keys.sort].join;
}

say '0123456789'.&remove: (1..3, 8);

またはStrを追加して：

use MONKEY-TYPING;
augment class Str {
    method remove($a) {
        $.comb[(^* ∖ $a.flat).keys.sort].join;
    }
};

say '0123456789'.remove: (1..3, 8);

.value.print if .key  !(elem) (1,2,3,8) for '0123456789'.comb.pairs

not-at操作の最新のアイデア（以下の実装について説明します）：

使用法：

say '0123456789'[- 1..3, 8 ]; # 045679

実装、ラッピング（の変形）ブラッドのソリューション：

multi postcircumfix:<[- ]> (|args) { remove |args }

sub remove( Str:D $str is copy, +@exdices){
    for @exdices.reverse {
        when Int   { $str.substr-rw($_,1) = '' }
        when Range { $str.substr-rw($_  ) = '' }
    }
    $str
}

say '0123456789'[- 1..3, 8 ]; # 045679

私は宣言した演算子を使用する構文string[- list-of-indices-to-be-subtracted ]おなじみの使用すなわち、[...]表記が、左と開封後、追加のマイナスの文字列で[添字内容がリストされていることを示すためにexdicesではなく、インデックス。

[編集：元の実装をBradに置き換えました。ブラッド氏が指摘しているように、彼の解決策は「[インデックス]が最低から最高の順であり、重複がないと想定している」ため、おそらくそれは間違った方向にあり、彼はそうは約束しませんが、使用[- ... ]は非常に近いですそうすること。したがって、この構文糖が誰かによって使用される場合、おそらくブラッドのソリューションを使用すべきではありません。おそらく、ブラッドの仮定を排除する方法があるでしょう。]

この構文のような私が、ラリーが意図的になかったことを認識していないの使用で構築し[...]たインデックスの文字列にはので、おそらくここで私の構文は、広く採用には不適切です。おそらく、いくつかの異なるブラケット文字が使用された方が良いでしょう。しかし、私は単純なポストサーカムフィックス構文の使用が良いと思います。

（私もs [ ... ]とまったく同じ方法で文字列のインデックスを作成するストレートバリアントを実装しようとしましたPositionalが、今夜、私を超えた理由で[+ ... ]機能しませんでした。私にはまったく意味がありません！とにかく、私は自分が持っているものを投稿し、この答えは完全だと考えます。

[編集：上記のソリューションには2つの側面があり、これらを区別する必要があります。まず、ユーザー定義の演算子であるpostcircumfix:<[- ]> (Str ...、宣言によって提供される構文糖衣。次に、その宣言の本文です。上記では、ブラッドのソリューション（の変形）を使用しました。私の元の答えは以下です。]

あなたの質問は、いくつかのインデックスを削除するに帰着ため.comb、および再join結果をINGの、あなたの質問は基本的に...重複して [編集：間違った、ブラッドの答えあたり]

配列またはリスト要素の選択を解除する簡単な方法は何ですか？.comb ... .joinここに[ ]回答のさらに多くのソリューションを追加します。

2つのマルチとして実装されているため、Positionalsで同じ構文を使用できます。

multi postcircumfix:<[- ]> (Str $_, *@exdex) { .comb[- @exdex ].join }

multi postcircumfix:<[- ]> (@pos,   *@exdex) { sort keys ^@pos (-) @exdex } 

say '0123456789'[- 1..3, 8 ]; # 045679

say (0..9)[- 1..3, 8 ];       # (0 4 5 6 7 9)

sort keys ^@pos (-) @exdices実装は、セバスチャンの答え@のわずかに単純化したバージョンです。上記でリンクした以前の回答からjnthnのソリューションに対してベンチマークを行っていませんが、それが速い場合は、代わりに交換できます。* [編集：明らかに、文字列バリアントの代わりにBradのソリューションにする必要があります。] *

さらに別のバリアント：

print $_[1] if $_[0] !(elem) (1,2,3,8) for ^Inf Z 0..9;

.print for ((0..9) (-) (1,2,3,8)).keys;

これは、単純さと短さの点で私が得たものに最も近いものです。

say '0123456789'.comb[ |(3..6), |(8..*) ].join

誰もが、文字列combをインデックスのフラットリストを使用して、または使用してリストに変換しています。

これらのいずれかを行う理由はありません

sub remove( Str:D $str is copy, +@indices ){
    for @indices.reverse {
        when Int   { $str.substr-rw($_,1) = '' }
        when Range { $str.substr-rw($_  ) = '' }
    }
}

remove("0123456789",  1..3, 8 );  # 045679
remove("0123456789", [1..3, 8]);  # 045679

上記は、インデックスが最低から最高の順であり、重複がないことを前提としています。

my $string='0123456789';
for (1..3, 8).flat.reverse { $string.substr-rw($_, 1) = '' }