Jaki jest najlepszy sposób na propagowanie błędów z oddzielnego wątku (np. Blok startowy, Proc :: Async lub sub zawierające je). Po prostu owijanie kodu, który wypuszcza nowy wątek w bloku try / CATCH, nie działa, a użycie funkcji czekania działa tylko w zależności od zwracanej wartości podprogramu...
Szeregi matematyczne, weźmy na przykład kolejną sekwencję przedstawioną tutaj jako tablicę: 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) }; Wydruki: a0 = 0 a1 = 1 a2 = 2 ... a8 = 8 a9 =...
Mam listę dwuelementowych list, takich jak to, co otrzymujesz na przykład (1..5) Z (20..24), które chcę przekształcić w skrót (w tym przykładzie, co otrzymujesz {1 => 20, 2 => 21, 3 => 22, 4 => 23, 5 =>24}. Mógłbym to zrobić „ręcznie”, ale to nie jest nie jest zbyt elegancki i jestem...
W wyrażeniu Raku istnieją dwa rodzaje naprzemienności: the |i ||. Jaka jest różnica ? say 'foobar' ~~ / foo || foobar / # ｢foo｣ say 'foobar' ~~ / foo | foobar / #
Z wyjątkiem bloku, w którym zadeklarowałem podpis, wszystkie bloki mają tę samą wartość tożsamości i twierdzą, że zostały zadeklarowane w wierszu 1, niezależnie od tego, gdzie występują. Czy ktoś mógłby rzucić nieco światła na to, dlaczego tak jest? say ｢Let's look at some blocks…｣; if True {...
W Perlu 5 możesz emulować wc -lza pomocą oneliner: perl -lnE 'END {say $.}' test.txt Jak wdrożyć tę funkcjonalność w Raku Jeśli spróbujesz to zaimplementować: raku -e 'say "test.txt".IO.open.lines.elems' okazuje się powolny i zużywa dużo pamięci Informacje do odtworzenia: $ wget...
Przeszukałem Dokumentację Raku oraz kilka książek i samouczków oraz kilka wpisów Stackoverflow, aby dowiedzieć się, jak usunąć element z listy / tablicy w sposób czysty, tj. Bez umieszczania (Dowolnego) w miejscu usuniętego elementu my @s = <3 18 4 8 92 14 30>; my $item = 8; my $index =...
Próbuję przekonwertować oparte na wyrażeniach regularnych rozwiązanie problemu plecaka z Perla na raku. Szczegóły dotyczące Perlmonks Rozwiązanie Perl tworzy to wyrażenie
Wiem, że mogę zaplanować, Promiseaby utrzymać się w określonym czasie my $promise = Promise.in($seconds); ale jak mogę zaplanować jego uszkodzenie? Mówiąc konkretnie, myślę o obietnicy, która „przekroczy limit czasu”, dzięki czemu pozostanie do pewnego czasu do dotrzymania, inaczej...
Wiemy, że awarią może zaradzić blok CATCH. W poniższym przykładzie tworzymy błąd „AdHoc” (w innym sub-sub) i obsługujemy wyjątek w bloku CATCH (w moim sub-sub) sub my-sub { try { CATCH { when X::AdHoc { say 'AdHoc Exception handled here'; .resume } default {say 'Other Exception'; .resume}...
Chciałbym zdefiniować kilka podzbiorów, do których również dodam kilka ograniczeń i kilka dieinstrukcji dla niektórych przydatnych komunikatów o błędach. Nie chcę ich definiować na górze modułu, który korzysta z tych podzbiorów, i zamiast tego chcę je umieścić w innym module, jednocześnie...
Kod podany w tym wątku już nie działa: Jak mogę zbuntować obiekt w Perlu 6? Napisałem ten fragment kodu w zeszłym roku i wtedy zadziałało. Teraz nie: class Person { ; } class Woman is Person { ; } my $tom = Person.new; my $lisa = Woman.new; say $tom.^name; # -> Person say $lisa.^name; # ->...
Próbuję obliczyć stałą e ( AKA Euler's Number ), obliczając wzór Aby obliczyć silnię i podział w jednym ujęciu, napisałem to: my @e = 1, { state $a=1; 1 / ($_ * $a++) } ... *; say reduce * + * , @e[^10]; Ale to nie wyszło. Jak to zrobić
Domyślnie „kostka” Raku zgłasza numer linii, w której znajduje się „kostka”, co jeśli chcesz numer linii kontekstu wywoływania, ala „karp” z perl
Usuwam post, ponieważ nie konsultowano mnie w sprawie cenzury /
W trakcie pisania tłumacza jednego języka muzycznego na inny (od ABC do Alda) jako wymówki do nauki umiejętności Raku DSL zauważyłem, że nie ma sposobu na zakończenie .parse! Oto mój skrócony kod demonstracyjny: #!/home/hsmyers/rakudo741/bin/perl6 use v6d; # use Grammar::Debugger; use...
Chciałbym znaleźć ciągłe sekwencje równych elementów (np. O długości 2) na liście 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)) Ten kod wygląda dobrze, ale po dodaniu kolejnych 2 po sekwencji 2 2 2lub po usunięciu jednego 2 z niego...