He buscado en la Documentación de Raku y en varios libros y tutoriales y en varias publicaciones de Stackoverflow para aprender cómo eliminar un elemento de una lista / matriz de forma limpia, es decir, sin tener (Any) en el lugar del elemento eliminado my @s = <3 18 4 8 92 14 30>; my $item...
Sabemos que una falla puede ser manejada por un bloque CATCH. En el siguiente ejemplo creamos una falla 'AdHoc' (en otro sub) y manejamos la excepción en un bloque CATCH (en mi sub) sub my-sub { try { CATCH { when X::AdHoc { say 'AdHoc Exception handled here'; .resume } default {say 'Other...
Me gustaría definir algunos subconjuntos a los que también estoy agregando algunas restricciones y algunas diedeclaraciones para algunos mensajes de error útiles. No quiero definirlos en la parte superior del módulo que usa esos subconjuntos y, en cambio, quiero colocarlos en otro módulo y al mismo...
¿Cuál es la mejor manera de propagar errores desde un hilo separado (por ejemplo, bloque de inicio, Proc :: Async o subcontenido que los contiene)? Simplemente envolver el código que hace girar un nuevo hilo en un bloque try / CATCH no funciona, y el uso de esperar solo funciona dependiendo del...
En perl 5, puedes emular wc -lusando oneliner: perl -lnE 'END {say $.}' test.txt Cómo implementar esta funcionalidad en Raku Si intenta implementar esto: raku -e 'say "test.txt".IO.open.lines.elems' resulta ser lento y usa mucha memoria Información para reproducir: $ wget...
Tengo una lista de listas de dos elementos, como lo que obtendrías, por ejemplo (1..5) Z (20..24), que quiero convertir en un hash (en este ejemplo, lo que obtienes {1 => 20, 2 => 21, 3 => 22, 4 => 23, 5 =>24}. Podría hacerlo "a mano", pero eso no es No es muy elegante, y estoy...
El código dado en este hilo ya no funciona: ¿Cómo puedo rebadificar un objeto en Perl 6? Escribí este código el año pasado, y funcionó entonces. Ahora no lo hace: class Person { ; } class Woman is Person { ; } my $tom = Person.new; my $lisa = Woman.new; say $tom.^name; # -> Person say...
Estoy tratando de calcular la constante e (también conocido como el número de Euler ) calculando la fórmula Para calcular el factorial y la división en una sola toma, escribí esto: my @e = 1, { state $a=1; 1 / ($_ * $a++) } ... *; say reduce * + * , @e[^10]; Pero no funcionó. ¿Cómo hacerlo...
Por defecto, el "dado" de Raku informa el número de línea donde se encuentra el "dado", ¿qué pasa si desea el número de línea del contexto de llamada, ala "carpa" con perl
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 {...
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í,...
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; #...
Hay dos tipos de alternancia en la expresión regular de Raku: la |y ||. Cuál es la diferencia ? say 'foobar' ~~ / foo || foobar / # ｢foo｣ say 'foobar' ~~ / foo | foobar / #
Digamos que uso cierto conjunto de repeticiones con bastante frecuencia: 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; … } } Prefiero poder...
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)) Este código se ve bien, pero cuando se agrega un 2 más después de la secuencia...
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 acabo de redefinir Bar, obtengo una...
Por una duración, ¿por qué necesito obligar a una rata a un real a mano, pero no a un int? Esta es Rakudo versión 2020.01 construida en MoarVM versión 2020.01.1 que implementa Perl 6.d. En OSX say $v.WHAT; #(Int) $v = Duration.new( $v ); say $v; #20 my $w = 20.0; say $w.WHAT; #(Rat) $w =...
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
Tengo un gran hash de matrices, %qual<discordant> (~ aproximadamente 13199 valores como '88 .23 ', '99 .23', etc. que oscila entre 88 y 100, y se leen desde archivos de texto, y cuando imprimo %qual<discordant>.miny %qual<discordant>.maxpuedo ver que los valores están...
He usado el módulo CPAN Perl Data :: Printer (DP) con Perl. Funciona muy bien Ahora quiero usarlo en el código Raku. Cuando uso la :from<Perl5>función para importarlo y luego ejecuto el código que lo usa, la anotación (tied to Perl6::Hash)se agrega a la visualización de hashes. 1 Como...