Perguntas com a marcação «raku»

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 v6d; # use Grammar::Debugger; …

9 parsing  grammar  raku 

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)) …

9 sequence  raku 

Estou excluindo a postagem porque não fui consultado sobre a censura / edição.

9 raku 

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|) (?(?{ $2 })w|) (?(?{ $3 })wwwwwwwwwwww|) (?(?{ $4 })ww|) (?(?{ $5 })w|) ) …

9 regex  raku 

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 { &?BLOCK.say; …

9 raku  routines 

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 …

9 raku 

Séries matemáticas, considere, por exemplo, a sequência consecutiva representada aqui como uma matriz: my @seq = my $a=0, {++$a} ... *; for @seq[^10].kv {state $f=0; ($^k < 4 or $^k > 7) ?? say "a$^k = " ~ $^v !! (say "..." if $f ne 1; $f=1) }; Impressões: a0 …

9 sequence  raku 

Estou ansioso para aprender Raku (Perl 6) e sua sintaxe. Eu já tenho o Perl 5 instalado na minha máquina Ubuntu. vinod@ubuntu-s-1vcpu-1gb-nyc1-01:~$ perl -v This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi (with 67 registered patches, see perl -V for more detail) Copyright 1987-2017, Larry Wall …

9 perl  install  raku  rakudo-star 

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 …

9 raku 

Considerar .say for (1,2,2).rotor(2=>-1).map( -> ($a, $b) { $a - $b }) que funciona como esperado. Contudo, .say for (1,2,2).pairs.rotor(2=>-1).map( -> ($a, $b) { $a.value - $b.value }) joga Too few positionals passed to '<anon>'; expected 2 arguments but got 0 in sub-signature Isso é um bug ou estou faltando …

8 raku  rakudo 

Talvez esteja faltando alguma coisa, mas eu gostaria de saber se existe um bom motivo para esse código ser compilado role L { method do-l (Int, Int --> Int ) { ... } } class A does L { method do-l (Int $a, Real $b --> Str) { .Str ~ …

8 raku 

Estou usando o Raku para alguns cálculos, porque possui bons tipos numéricos. No entanto, tenho um problema ao usar '.raku' say (1/6+1/6).raku #<1/3> Nós obtemos isso. Contudo, say (1/10+1/10).raku #0.2 Isso é um bug? Eu esperava <1/5>. O que acontece?

8 raku 

Um recurso de funções são os grupos de funções, que permitem declarar várias funções com o mesmo nome, aceitando parâmetros diferentes, da mesma forma que as várias rotinas: role Foo[Int:D] { method is-int(::?CLASS:_: --> True) { } method is-str(::?CLASS:_: --> False) { } } role Foo[Str:D] { method is-int(::?CLASS:_: --> …

8 types  module  polymorphism  raku 

Ao tentar depurar o código do programa, encontrei o seguinte: (base) hsmyers@BigIron:~$ rlwrap -A raku To exit type 'exit' or '^D' > my regex N { <[A..G]> }; regex N { <[A..G]> } > my %h = A => 1, B => 2; {A => 1, B => 2} > …

8 hash  key  exists  raku 

Preciso converter milhares de cadeias de bytes binários, cada uma com cerca de um megabyte, em cadeias ASC. É o que tenho feito e parece muito lento: sub fileToCorrectUTF8Str ($fileName) { # binary file my $finalString = ""; my $fileBuf = slurp($fileName, :bin); for @$fileBuf { $finalString = $finalString ~ …

8 arrays  string  binary  raku