Preguntas etiquetadas con raku

En el proceso de escribir un traductor de un lenguaje musical a otro (ABC a Alda) como una excusa para aprender la habilidad Raku DSL, ¡me di cuenta de que no parece haber una manera de terminar a .parse! Aquí está mi código de demostración acortado: #!/home/hsmyers/rakudo741/bin/perl6 use v6d; # …

9 parsing  grammar  raku 

Me gustaría encontrar las secuencias contiguas de elementos iguales (por ejemplo, de longitud 2) en una 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 

Estoy borrando la publicación ya que no me consultaron sobre la censura / edición.

9 raku 

Estoy tratando de convertir una solución basada en expresiones regulares para el problema de la mochila de Perl a raku. Detalles sobre Perlmonks La solución Perl crea esta expresión regular: (?<P>(?:vvvvvvvvvv)?) (?<B>(?:vv)?) (?<Y>(?:vvvv)?) (?<G>(?:vv)?) (?<R>(?:v)?) 0 (?= (?(?{ $1 })wwww|) (?(?{ $2 })w|) (?(?{ $3 })wwwwwwwwwwww|) (?(?{ $4 })ww|) (?(?{ …

9 regex  raku 

A menudo me encuentro experimentando en el REPL y diré algo como: subset Bar of Int where * %% 57; Luego juego un poco con los controles de la Barcapacidad de las cosas. Todo es feliz, hasta que me doy cuenta de que quiero cambiar la definición de Bar. Si …

9 raku 

Excepto por el bloque donde declaró una firma, todos los bloques tienen el mismo valor de identidad y afirman ser declarados en la línea 1, independientemente de dónde ocurran. ¿Alguien podría arrojar algo de luz sobre por qué este es el caso? say ｢Let's look at some blocks…｣; if True …

9 raku  routines 

Serie matemática, tome por ejemplo la secuencia consecutiva representada aquí como una 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) }; Huellas dactilares: …

9 sequence  raku 

Estoy ansioso por aprender Raku (Perl 6) y su sintaxis. Ya tengo instalado Perl 5 en mi 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 Perl may …

9 perl  install  raku  rakudo-star 

El operador 'xx' es interesante porque: (^100).pick xx 10 produce una lista de 10 Int aleatorios en lugar de un Int aleatorio repetido 10 veces como una lista. ¿El operador maneja el operador como un caso especial? ¿O es realmente solo otro submarino que también podemos definirnos? (Si es así, …

9 raku 

Considerar .say for (1,2,2).rotor(2=>-1).map( -> ($a, $b) { $a - $b }) que funciona como se esperaba Sin embargo, .say for (1,2,2).pairs.rotor(2=>-1).map( -> ($a, $b) { $a.value - $b.value }) tiros Too few positionals passed to '<anon>'; expected 2 arguments but got 0 in sub-signature ¿Es esto un error o …

8 raku  rakudo 

Tal vez me falta algo, pero me gustaría saber si hay una buena razón por la cual este código debe compilarse role L { method do-l (Int, Int --> Int ) { ... } } class A does L { method do-l (Int $a, Real $b --> Str) { .Str …

8 raku 

Estoy usando Raku para algunos cálculos, porque tiene buenos tipos numéricos. Sin embargo, tengo un problema con el uso de '.raku' say (1/6+1/6).raku #<1/3> Obtenemos esto. Sin embargo, say (1/10+1/10).raku #0.2 ¿Es un error? Esperaba <1/5>. ¿Lo que pasa?

8 raku 

Una característica de los roles son los grupos de roles, que le permiten declarar múltiples roles con el mismo nombre aceptando diferentes parámetros, de manera similar a las rutinas múltiples: role Foo[Int:D] { method is-int(::?CLASS:_: --> True) { } method is-str(::?CLASS:_: --> False) { } } role Foo[Str:D] { method …

8 types  module  polymorphism  raku 

Mientras intentaba depurar el código del programa, me encontré con lo siguiente: (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 => …

8 hash  key  exists  raku 

Necesito convertir miles de cadenas de bytes binarios, cada una de aproximadamente un megabyte de longitud, en cadenas ASC. Esto es lo que he estado haciendo, y parece demasiado lento: sub fileToCorrectUTF8Str ($fileName) { # binary file my $finalString = ""; my $fileBuf = slurp($fileName, :bin); for @$fileBuf { $finalString …

8 arrays  string  binary  raku