Setiap minggu Mohammad S. Anwar menghantar Cabaran Mingguan, peluang untuk kita semua mencari penyelesaian kepada dua tugas mingguan. Penyelesaian saya ditulis dalam Python terlebih dahulu, dan kemudian ditukar kepada Perl. Ini cara yang bagus untuk kita semua mempraktikkan beberapa pengekodan.
Cabaran, Penyelesaian saya
Anda diberi rentetan, $str, dan senarai perkataan, @words.
Tulis skrip untuk mengembalikan benar atau salah sama ada rentetan yang diberikan boleh dibahagikan kepada urutan yang diasingkan ruang bagi satu atau lebih perkataan daripada senarai yang diberikan.
Dengan TWC, saya cenderung untuk memikirkan bagaimana saya akan menyelesaikannya semasa berulang-alik pulang ke rumah pada hari Isnin. Saya memikirkan contoh rentetan winwine dan perkataan win dan wine, dan juga rentetan winewin. Nampaknya tidak ada cara yang pasti untuk melihat perkataan yang harus saya padankan dahulu.
Beberapa hari kemudian, saya mendapat idea genius bahawa saya sebenarnya menyelesaikan masalah yang salah. Penyelesaian yang lebih mudah ialah menggunakan ungkapan biasa untuk melihat sama ada satu atau lebih perkataan sepadan dengan rentetan s.
Dan itulah yang saya tulis. Saya menggunakan re.escape dalam Python dan quotemeta dalam Perl untuk melarikan diri daripada mana-mana aksara meta khas dalam senarai perkataan.
def word_break(s: str, words: list) -> bool: pattern = '^(' + '|'.join(map(re.escape, words)) + ')+$' return True if re.search(pattern, s) else False
$ ./ch-1.py weeklychallenge challenge weekly true $ ./ch-1.py perlrakuperl raku perl true $ ./ch-1.py sonsanddaughters sons sand daughters false
Anda diberi tatasusunan integer, @ints.
Tulis skrip untuk mencari bilangan lompatan minimum untuk mencapai elemen terakhir. $ints[$i] mewakili panjang maksimum lompatan hadapan daripada indeks $i. Sekiranya elemen terakhir tidak dapat dicapai maka kembalikan -1.
Apabila menyelesaikan tugasan ini, saya juga menggunakan TDD, sesuatu yang tidak saya lakukan dalam kerja harian saya. Jika ujian gagal, biasanya terdapat sama ada ralat yang jelas atau sesuatu yang lebih rumit. Tugas ini adalah salah satu daripada kemudian. Banyak penyahpepijatan berlaku.
Saya tahu kedua-dua Python dan Perl mempunyai alat penyahpepijat terbina dalam yang sangat baik, tetapi saya masih peminat menggunakan banyak kenyataan cetakan.
Untuk tugasan ini, saya mempunyai fungsi rekursif yang dipanggil jump_game. Ia memerlukan dua parameter: int ialah senarai integer (bermula dengan senarai lengkap) dan bergerak yang bermula pada satu.
Jika integer pertama ialah 0, saya mengembalikan None (undef dalam Python) kerana tiada pergerakan selanjutnya yang mungkin. Saya kemudian lelaran - dengan pembolehubah i -daripada nilai int[0] hingga 1. Jika nilai ini lebih besar daripada atau sama dengan satu kurang daripada panjang senarai, kami mempunyai penyelesaian dan saya kembali bergerak. Untuk nilai lain, saya memanggil fungsi itu sekali lagi untuk mengalih keluar nilai pertama i dan menambah satu pergerakan.
Saya mempunyai pembolehubah min_moves untuk memastikan kami mengembalikan bilangan minimum pergerakan untuk semua lelaran.
def word_break(s: str, words: list) -> bool: pattern = '^(' + '|'.join(map(re.escape, words)) + ')+$' return True if re.search(pattern, s) else False
Apakah pepijat saya, anda bertanya? Saya sedang menyemak i >= len(ints) dan bukannya i >= len(ints)-1.
$ ./ch-1.py weeklychallenge challenge weekly true $ ./ch-1.py perlrakuperl raku perl true $ ./ch-1.py sonsanddaughters sons sand daughters false
Atas ialah kandungan terperinci Permainan Rehat. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!