의미 없는 형식의 숫자가 있는 행을 삭제하는 방법은 무엇입니까?

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는 유리수와 내장된 유니코드 지원 기능을 갖춘 Perl 제품군의 프로그래밍 언어입니다. 위에서 일반적인 전략은 1열과 5열(인덱스)의 값이 DEG측정된 값의 합이 되는 해시 배열을 만드는 것입니다.key[0,4]value

@- 서명된 array()가 선언되었습니다 @a. Raku 코드는 자동으로 이를 읽고 lines개행 join문자에 다시 합칩니다 \n. 여기서부터 이전에 발생한 개행 문자를 split찾아 기록을 깨뜨립니다 . 블록 을 입력하면 각 레코드가 다시 래핑 되고 첫 번째 요소의 세 번째 단어는 가 됩니다 . 두꺼운 화살표는 가 되는 "쌍" 구조를 나타냅니다 . 이 두 호출에 유의하세요. 숫자 뒤의 첫 번째 호출과 더하기 기호를 사용하거나 삽입합니다 . 빼기 기호로 구성된 사용자 정의 문자 클래스 사이에 "e"가 있고 두 번째 호출은 "D"를 "e"로 변경합니다. 값이 변환되고 해시 값이 배열로 푸시됩니다. 이 메서드는 Raku 데이터의 내부 표현을 시각화할 수 있도록 출력 행에 추가됩니다(노트는 동의어로 사용될 수도 있음).\nDEG{ … }split\n.[0].words.[2]key=>value.subst\d<[+-]>.Num%( … )@a.raku.perl

플롯의 실제 출력:

.raku.put for @a원하는 플롯 출력을 얻으려면 마지막 줄을 변경하십시오 . 다음은 몇 가지 예입니다(필요한 경우 Raku printf또는 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