意味のない形式の数字を持つ行を削除する方法は？

Question 1

使用幸せ（以前のPerl_6）

~$  raku -e 'my @a; for lines.join("\n").split(/ \n <?before DEG> /) { @a.push: %(.split("\n").[0].words.[2] => \
             .split("\n")[1..*].map(*.words[0,4])>>.map(*.subst( / (\d+) (<[+-]>) /, {$0 ~ "e" ~ $1} ).subst(/D/, "e") )>>.Num) };  \
             .raku.put for @a;'  file

可視化目的の出力例：

${"1.500" => $($(26e0, 0e0), $(27e0, 9.41e-316), $(43e0, 6.984e-96), $(159e0, 7.376e-19), $(160e0, 1.089e-18), $(161e0, 15.96e0), $(162e0, 2.32e-10))}
${"18.500" => $($(27e0, 0e0), $(28e0, 4.412e-297), $(88e0, 7.275e-15))}

Rakuは、有理数と組み込みのUnicodeサポートを備えたPerlファミリのプログラミング言語です。上記の一般的な戦略は、1列と5列（インデックス）の値が測定値DEGの合計になるハッシュ配列を作成することです。key[0,4]value

@- 署名されたarray（）が宣言されました@a。 Rakuコードは自動的にそれを読み、lines改行join文字に戻します\n。ここから以前に発生した改行文字をsplit見つけて記録を破ります。ブロックを入力すると、各レコードが再ラップされ、最初の要素の3番目の単語がになります。太い矢印は、「ペア」構造を表します。これら2つの呼び出しに注意してください。数字の後の最初の呼び出しとプラス記号を使用または挿入します。マイナス記号で構成されるカスタム文字クラスの間に「e」があり、2番目の呼び出しは「D」を「e」に変更します。値が変換され、ハッシュ値が配列にプッシュされます。このメソッドは、Rakuデータの内部表現を視覚化するために出力行に追加されます（ノートは同義語として使用することもできます）。\nDEG{ … }split\n.[0].words.[2]key=>value.subst\d<[+-]>.Num%( … )@a.raku.perl

プロットの実際の出力：

.raku.put for @a希望のプロット出力を取得するには、最後の行を変更してください。以下はいくつかの例です（必要に応じてRakuprintfまたはRakuを使用することもできますsprintf）。

1.put最初の行を返すには、上記のout行を置き換えますDEG。

for @a[0].kv -> $k,$v {put ([Z] $k xx $v.elems, $v).join: "\n"}

#Returns 3-columns:

1.500 26 0
1.500 27 9.41e-316
1.500 43 6.984e-96
1.500 159 7.376e-19
1.500 160 1.089e-18
1.500 161 15.96
1.500 162 2.32e-10

2.または、次の行を使用して3つのリスト全体を一度に返しますput。

for @a { for ($_.kv) -> $k,$v {put ([Z] $k xx $v.elems, $v).join: "\n"}};

#Returns:

1.500 26 0
1.500 27 9.41e-316
1.500 43 6.984e-96
1.500 159 7.376e-19
1.500 160 1.089e-18
1.500 161 15.96
1.500 162 2.32e-10
18.500 27 0
18.500 28 4.412e-297
18.500 88 7.275e-15

三。 ついに： Rakuには、=~=値がおおよそのかどうかを判断するために使用できる「許容差」演算子があります。 0と同じです（デフォルトは1e-15、以下のリンクを参照）。一緒に入れてください：

~$ raku -e 'my @a; for lines.join("\n").split(/ \n <?before DEG> /) { @a.push: %(.split("\n").[0].words.[2] => \
            .split("\n")[1..*].map(*.words[0,4])>>.map(*.subst( / (\d+) (<[+-]>) /, {$0 ~ "e" ~ $1} ).subst(/D/, "e") )>>.Num) };  \
            for @a {  for ($_.kv) -> $k,$v {put ([Z] $k xx $v.elems,  $v>>.map( -> $i { ($i =~= 0) ?? 0 !! $i } )).join: "\n"}};'  file
1.500 26 0
1.500 27 0
1.500 43 0
1.500 159 0
1.500 160 0
1.500 161 15.96
1.500 162 2.32e-10
18.500 27 0
18.500 28 0
18.500 88 7.275e-15

https://docs.raku.org/言語/hashmap.html
https://docs.raku.org/言語/5to6-nutshell.html#=%3E_Fat_comma
https://docs.raku.org/routine/=~=.html
https://raku.org

Answer

使用幸せ（以前のPerl_6）

~$  raku -e 'my @a; for lines.join("\n").split(/ \n <?before DEG> /) { @a.push: %(.split("\n").[0].words.[2] => \
             .split("\n")[1..*].map(*.words[0,4])>>.map(*.subst( / (\d+) (<[+-]>) /, {$0 ~ "e" ~ $1} ).subst(/D/, "e") )>>.Num) };  \
             .raku.put for @a;'  file