Início / coding / Perguntas / 76984798
Accepted
Brass P.
Asked: 2023-08-27 04:49:15 +0800 CST

Evite repetir a mesma variável em uma cadeia de condições

  • 772

Eu tenho um script com uma condicional e uma pilha de verificações usando a mesma variável. Algo semelhante a isto:

my $size = "123B";
say "OK" if $size ~~ Str && $size.ends-with("B") && $size.chop >= 0;

Seria possível reescrever a linha de forma a evitar a repetição de $size?. Pensei em algo como junções que não tenho ideia de como aplicar a isso. Ou talvez outra coisa, mas mais curta da minha linha.

raku

2 respostas

  1. Best Answer

    Que tal:

    my $size1 = "123B";
given $size1 {
      say "OK" if .Str && $_.ends-with("B") && $_.chop >= 0;
};

    $_é a 'variável de tópico' em Raku (e também em Perl). Você pode abreviar $_.ends-with()ou encurtar ainda mais o código para .ends-with(), conforme mostrado abaixo. Da mesma forma, $_.choppode ser encurtado ainda mais para .chop, conforme mostrado abaixo.

    Ou usando o [&&]metaoperador de redução:

    my $size2 = "123B";
given $size2 {
      say "OK" if  [&&] .Str, .ends-with("B"), .chop >= 0;
};

    Ou com uma all()junção:

    my $size3 = "123B";
given $size3 {
      say "OK" if  $_ ~~ all(.Str, .ends-with("B"), .chop >= 0);
}

    Ou elimine giventotalmente o bloqueio:

    my $size4 = "123B";
say "OK" if  $size4 ~~ all(.Str, .ends-with("B"), .chop >= 0);

    https://course.raku.org/essentials/loops/topic/

    • 5

  2. { when /B$/ { say 'OK' } } given my Str $size = '123B'

    minha resposta é um pouco atrevida, pois você sabe que $size é um Str se corresponder ao regex e você sabe se tem um B como último caractere, então .chop >= 0

    my $size = '123B';
{ when (Str && /B$/ && .chop >= 0) { say 'OK' } } given $size

    esta generalização provavelmente está mais no espírito do que você perguntou

    • 2

relate perguntas