Pesquisei a documentação do Raku e vários livros e tutoriais e várias postagens do Stackoverflow para aprender como excluir um item de uma lista / matriz de forma limpa, ou seja, sem ter o (Qualquer) no lugar do elemento excluído my @s = <3 18 4 8 92 14 30>; my $item = 8; my $index =...
Sabemos que uma falha pode ser tratada por um bloco CATCH. No exemplo a seguir, criamos uma falha 'AdHoc' (em outro sub) e manipulamos a exceção em um bloco CATCH (em meu sub) sub my-sub { try { CATCH { when X::AdHoc { say 'AdHoc Exception handled here'; .resume } default {say 'Other...
Gostaria de definir alguns subconjuntos aos quais também estou adicionando algumas restrições e algumas dieinstruções para algumas mensagens de erro úteis. Não quero defini-los na parte superior do módulo que usa esses subconjuntos e, em vez disso, quero colocá-los em outro módulo, além de acabar...
Qual é a melhor maneira de propagar erros a partir de um thread separado (por exemplo, bloco inicial, Proc :: Async ou sub contendo estes). Simplesmente encapsular o código que gera um novo encadeamento em um bloco try / CATCH não funciona, e o uso de aguardar funciona apenas dependendo do valor de...
No perl 5, você pode emular wc -lusando o oneliner: perl -lnE 'END {say $.}' test.txt Como implementar esta funcionalidade no Raku Se você tentar implementar isso: raku -e 'say "test.txt".IO.open.lines.elems' acaba por ser lento e usa muita memória Informações para reproduzir: $ wget...
Eu tenho uma lista de listas de dois elementos, como o que você obteria, por exemplo (1..5) Z (20..24), que eu quero transformar em hash (neste exemplo, o que você ganha {1 => 20, 2 => 21, 3 => 22, 4 => 23, 5 =>24}. Eu poderia fazê-lo "manualmente", mas isso não é é muito elegante e...
O código fornecido neste thread não funciona mais: como posso abençoar um objeto no Perl 6? Eu escrevi esse código no ano passado e funcionou então. Agora não: class Person { ; } class Woman is Person { ; } my $tom = Person.new; my $lisa = Woman.new; say $tom.^name; # -> Person say...
Estou tentando calcular a constante e (número do AKA Euler ) calculando a fórmula Para calcular o fatorial e a divisão de uma só vez, escrevi o seguinte: my @e = 1, { state $a=1; 1 / ($_ * $a++) } ... *; say reduce * + * , @e[^10]; Mas não deu certo. Como fazer isso
Por padrão, o "dado" de Raku informa o número da linha onde o "dado" está localizado. E se você quiser o número da linha do contexto de chamada, ala "carp" com perl
Exceto pelo bloco em que declarei uma assinatura, todos os blocos têm o mesmo valor de identidade e afirmam ser declarados na linha 1, independentemente de onde ocorram. Alguém poderia lançar alguma luz sobre por que esse é o caso? say ｢Let's look at some blocks…｣; if True {...
O operador 'xx' é interessante por isso: (^100).pick xx 10 produz uma lista de 10 int aleatórios em vez de um int aleatório repetido 10 vezes como uma lista. O operador é tratado como um caso especial pelo compilador? Ou é realmente apenas mais um sub que podemos nos definir também? (Se sim, eu...
No processo de escrever um tradutor de uma linguagem musical para outra (ABC para Alda) como uma desculpa para aprender a capacidade DSL do Raku, notei que não parece haver uma maneira de encerrar a .parse! Aqui está o meu código de demonstração abreviado: #!/home/hsmyers/rakudo741/bin/perl6 use...
Existem dois tipos de alternância no regex de Raku: the |e ||. Qual é a diferença ? say 'foobar' ~~ / foo || foobar / # ｢foo｣ say 'foobar' ~~ / foo | foobar / #
Digamos que eu use um certo conjunto de clichês regularmente: class Foo { method abc($a: $b, $c, +@d) is pure { use Slang::Bar; … } method xyz($a: $b, $c, +@d) is pure { use Slang::Bar; … } method blarg($a: $b, $c, +@d) is pure { use Slang::Bar; … } } Prefiro dizer: class Foo...
Eu gostaria de encontrar as seqüências contíguas de elementos iguais (por exemplo, comprimento 2) em uma lista my @s = <1 1 0 2 0 2 1 2 2 2 4 4 3 3>; say grep {$^a eq $^b}, @s; # ==> ((1 1) (2 2) (4 4) (3 3)) Esse código parece bom, mas quando mais 2 são adicionados após a sequência 2...
Costumo me fazer experiências no REPL e direi algo como: subset Bar of Int where * %% 57; Então brinco Barum pouco com as coisas boas. Tudo é feliz, até eu perceber que quero mudar a definição de Bar. Se eu apenas redefinir Bar, recebo uma Redeclaration of symbolexceção. Eu tentei usar...
Por uma Duração, por que preciso coagir um Rato a um Real manualmente, mas não um Int? Esta é a versão 2020.01 do Rakudo, criada no MoarVM versão 2020.01.1, implementando o Perl 6.d. No OSX. say $v.WHAT; #(Int) $v = Duration.new( $v ); say $v; #20 my $w = 20.0; say $w.WHAT; #(Rat) $w =...
Estou tentando converter uma solução baseada em regex para o problema da mochila do Perl para o raku. Detalhes sobre Perlmonks A solução Perl cria este regex: (?<P>(?:vvvvvvvvvv)?) (?<B>(?:vv)?) (?<Y>(?:vvvv)?) (?<G>(?:vv)?) (?<R>(?:v)?) 0 (?= (?(?{ $1 })wwww|) (?(?{...
Eu tenho um grande hash de matrizes, %qual<discordant> (~ aprox. 13199 valores como '88 .23 ', '99 .23' etc. que varia de 88 a 100 e são lidos em arquivos de texto, e quando imprimo %qual<discordant>.mine %qual<discordant>.maxvejo que os valores estão claramente errados. Eu...
Eu usei o módulo CPAN Perl Data :: Printer (DP) com Perl. Isso funciona muito bem. Agora eu quero usá-lo no código Raku. Quando eu uso o :from<Perl5>recurso para importá-lo e, em seguida, executar o código usando-o, a anotação (tied to Perl6::Hash)é anexada à exibição de hashes. 1 Como o...