Запитання з тегом «raku»

Я легко можу використовувати підписи токена, використовуючи безпосередньо ім’я токена: my token t ( $x ) { $x }; 'axb' ~~ / 'a' <t: 'x'> 'b' /; # match 'axb' ~~ / 'a' <t( 'x' )> 'b' /; # match Однак я не знайшов способу це зробити, коли маркер зберігається …

10 raku 

Мені цікаво, чому Раку так погано маніпулює багатовимірними масивами. Я зробив швидкий тест, ініціалізуючи двовимірну матрицю в Python, C # і Raku, і минулий час напрочуд високий для подальшого. Для Раку my @grid[4000;4000] = [[0 xx 4000] xx 4000]; # Elapsed time 42 seconds !! Для Python table= [ [ …

10 performance  raku 

Ми знаємо, що несправність може бути оброблена блоком CATCH. У наступному прикладі ми створюємо збій "AdHoc" (в іншій підпорядкуванні) і обробляємо виняток у блоці CATCH (у моєму підрозділі) sub my-sub { try { CATCH { when X::AdHoc { say 'AdHoc Exception handled here'; .resume } default {say 'Other Exception'; .resume} …

9 exception  try-catch  raku 

Я хотів би визначити кілька підмножин, до яких я також додаю кілька обмежень і деякі dieзаяви для деяких корисних повідомлень про помилки. Я не хочу визначати їх у верхній частині модуля, який використовує ці підмножини, а замість цього хочу розміщувати їх в іншому модулі, а також не використовуючи їх повністю …

9 module  subset  raku 

Код, вказаний у цій темі, більше не працює: Як я можу повторити об'єкт у Perl 6? Я писав цей фрагмент коду минулого року, і він працював тоді. Тепер це не так: class Person { ; } class Woman is Person { ; } my $tom = Person.new; my $lisa = …

9 raku 

Я намагаюся обчислити константу e (число AKA Euler ) шляхом обчислення формули Для того, щоб обчислити факторіал і поділ за один кадр, я написав це: my @e = 1, { state $a=1; 1 / ($_ * $a++) } ... *; say reduce * + * , @e[^10]; Але це не …

9 code-generation  lazy-evaluation  raku  eulers-number 

За замовчуванням "die" Раку повідомляє номер рядка, де знаходиться "die", що робити, якщо ви хочете, щоб номер рядка виклику контексту, ала "короп" з perl 5?

9 exception  raku  die  carp 

Під час написання перекладача однієї мови музики на іншу (ABC до Alda) як привід вивчити DSL-здатність Raku, я помітив, що, здається, не існує способу припинити використання .parse! Ось мій скорочений демо-код: #!/home/hsmyers/rakudo741/bin/perl6 use v6d; # use Grammar::Debugger; use Grammar::Tracer; my $test-n01 = q:to/EOS/; a b c d e f g …

9 parsing  grammar  raku 

Я хотів би знайти у списку суміжні послідовності рівних елементів (наприклад, довжини 2) 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 

Я видаляю цю посаду, оскільки мені не дали консультації щодо цензури / редагування.

9 raku 

Я намагаюся перетворити рішення, засноване на регулярному вираженні, для проблеми з рюкзаком від Perl до raku. Детальніше про Perlmonks Рішення Perl створює цей регулярний вираз: (?<P>(?:vvvvvvvvvv)?) (?<B>(?:vv)?) (?<Y>(?:vvvv)?) (?<G>(?:vv)?) (?<R>(?:v)?) 0 (?= (?(?{ $1 })wwww|) (?(?{ $2 })w|) (?(?{ $3 })wwwwwwwwwwww|) (?(?{ $4 })ww|) (?(?{ $5 })w|) ) який протиставляється …

9 regex  raku 

Я часто опиняюсь, що експериментую в REPL, і я скажу щось на зразок: subset Bar of Int where * %% 57; Потім я Barтрохи розігруюсь з перевірками на -ness для речей. Все радіє, поки я не зрозумію, що хочу змінити визначення Bar. Якщо я просто перероблю Bar, я отримую Redeclaration …

9 raku 

За винятком блоку, де я оголосив підпис, усі блоки мають однакове значення ідентичності та вимагають оголосити в рядку 1 незалежно від місця їх виникнення. Чи може хтось пролити трохи світла, чому це так? say ｢Let's look at some blocks…｣; if True { &?BLOCK.say; } while True { &?BLOCK.say; last; } …

9 raku  routines 

Математичний ряд, візьмемо для прикладу послідовну послідовність, представлену тут як масив: 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) }; Друкує: a0 = 0 …

9 sequence  raku 

Я прагну вивчити Раку (Perl 6) та його синтаксис. У мене вже встановлений Perl 5 на моїй машині 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