Apa cara terbaik untuk menyebarkan kesalahan dari utas terpisah (mis. Blok start, Proc :: Async, atau sub yang mengandung ini). Cukup dengan membungkus kode yang memutar utas baru dalam blok coba / CATCH tidak berfungsi, dan menggunakan menunggu hanya berfungsi tergantung pada nilai balik dari sub...
Seri matematika, ambil contoh urutan berurutan yang diwakili di sini sebagai array: 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) }; Cetakan: a0 = 0 a1 = 1 a2 = 2 ... a8 = 8 a9 = 9 Pertanyaan...
Saya memiliki daftar daftar dua elemen, seperti apa yang akan Anda dapatkan misalnya dengan (1..5) Z (20..24), yang ingin saya buat menjadi hash (dalam contoh ini, apa yang Anda dapatkan {1 => 20, 2 => 21, 3 => 22, 4 => 23, 5 =>24}. Saya bisa melakukannya "dengan tangan", tetapi itu...
Ada dua jenis pergantian di regex Raku: the |dan ||. Apa bedanya ? say 'foobar' ~~ / foo || foobar / # ｢foo｣ say 'foobar' ~~ / foo | foobar / #
Kecuali untuk blok tempat saya mendeklarasikan tanda tangan, semua blok memiliki nilai identitas yang sama, dan klaim untuk dideklarasikan pada baris 1 di mana pun itu terjadi. Adakah yang bisa menjelaskan mengapa ini terjadi? say ｢Let's look at some blocks…｣; if True { &?BLOCK.say; } while...
Dalam perl 5, Anda dapat meniru wc -lmenggunakan oneliner: perl -lnE 'END {say $.}' test.txt Bagaimana menerapkan fungsi ini di Raku Jika Anda mencoba menerapkan ini: raku -e 'say "test.txt".IO.open.lines.elems' ternyata lambat dan menggunakan banyak memori Informasi untuk direproduksi: $...
Saya telah mencari di Dokumentasi Raku dan beberapa buku & tutorial dan beberapa posting Stackoverflow untuk mempelajari cara menghapus item dari daftar / array dengan bersih yaitu tanpa memiliki (Apa saja) di tempat elemen yang dihapus my @s = <3 18 4 8 92 14 30>; my $item = 8; my...
Saya mencoba untuk mengubah solusi berbasis regex untuk masalah ransel dari Perl ke raku. Detail tentang Perlmonks Solusi Perl menciptakan regex ini: (?<P>(?:vvvvvvvvvv)?) (?<B>(?:vv)?) (?<Y>(?:vvvv)?) (?<G>(?:vv)?) (?<R>(?:v)?) 0 (?= (?(?{ $1 })wwww|) (?(?{ $2...
Saya tahu saya bisa menjadwalkan Promiseuntuk disimpan dalam jumlah waktu tertentu my $promise = Promise.in($seconds); tetapi bagaimana saya bisa menjadwalkannya untuk dilanggar? Secara khusus, saya memikirkan janji yang akan "habis", sehingga masih ada waktu untuk dijaga atau kalau tidak akan...
Kita tahu bahwa Kegagalan dapat ditangani oleh blok CATCH. Pada contoh berikut ini, kami membuat Kegagalan 'AdHoc' (di sub-sub lainnya) dan kami menangani Pengecualian dalam blok CATCH (di sub-saya) sub my-sub { try { CATCH { when X::AdHoc { say 'AdHoc Exception handled here'; .resume }...
Saya ingin mendefinisikan beberapa himpunan bagian yang saya juga menambahkan beberapa kendala dan beberapa diepernyataan untuk beberapa pesan kesalahan yang berguna. Saya tidak ingin mendefinisikan mereka di bagian atas modul yang menggunakan himpunan bagian itu dan sebaliknya ingin menempatkan...
Kode yang diberikan di utas ini tidak berfungsi lagi: Bagaimana saya bisa rebless objek di Perl 6? Saya menulis kode ini tahun lalu, dan itu berhasil saat itu. Sekarang tidak: class Person { ; } class Woman is Person { ; } my $tom = Person.new; my $lisa = Woman.new; say $tom.^name; # ->...
Saya mencoba menghitung konstanta e ( AKA Euler's Number ) dengan menghitung rumus Untuk menghitung faktorial dan pembagian dalam satu kesempatan, saya menulis ini: my @e = 1, { state $a=1; 1 / ($_ * $a++) } ... *; say reduce * + * , @e[^10]; Tapi itu tidak berhasil. Bagaimana cara...
Secara default, "mati" Raku melaporkan nomor baris tempat "mati" berada, bagaimana jika Anda ingin nomor baris dari konteks panggilan, ala "ikan mas" dengan perl
Saya menghapus posting karena saya tidak berkonsultasi tentang penyensoran /
Dalam proses menulis penerjemah dari satu bahasa musik ke yang lain (ABC ke Alda) sebagai alasan untuk mempelajari kemampuan Raku DSL, saya perhatikan bahwa sepertinya tidak ada cara untuk mengakhiri .parse! Ini kode demo singkat saya: #!/home/hsmyers/rakudo741/bin/perl6 use v6d; # use...
Saya ingin menemukan urutan yang berdekatan dari elemen yang sama (misalnya panjang 2) dalam daftar 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)) Kode ini terlihat ok tetapi ketika satu lagi 2 ditambahkan setelah urutan 2 2 2atau...