diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2025-07-03 21:26:39 +0200 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2025-07-03 21:26:39 +0200 |
| commit | e806c404a755763db73864ac957b59e92ab0da2e (patch) | |
| tree | 9ed77db586be21eb95177e871eb1f08538d9f7d6 | |
| parent | 8f3a919b91078399c99cdf897dad9d53f1dcd944 (diff) | |
| download | perlweeklychallenge-club-e806c404a755763db73864ac957b59e92ab0da2e.tar.gz perlweeklychallenge-club-e806c404a755763db73864ac957b59e92ab0da2e.tar.bz2 perlweeklychallenge-club-e806c404a755763db73864ac957b59e92ab0da2e.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-328/
| -rw-r--r-- | challenge-328/kjetillll/perl/ch-1.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/challenge-328/kjetillll/perl/ch-1.pl b/challenge-328/kjetillll/perl/ch-1.pl index d0601270e7..00e456535f 100644 --- a/challenge-328/kjetillll/perl/ch-1.pl +++ b/challenge-328/kjetillll/perl/ch-1.pl @@ -9,11 +9,11 @@ sub f { $_ } -print f("a?z") eq "abz" ? "ok" : "err $f", "\n"; -print f("pe?k") eq "peak" ? "ok" : "err $f", "\n"; -print f("gra?te") eq "grabte" ? "ok" : "err $f", "\n"; -print f("a?????b") eq "ababacb" ? "ok" : "err $f", "\n"; -print f("?a?") eq "bab" ? "ok" : "err $f", "\n"; -print f("?b") eq "ab" ? "ok" : "err $f", "\n"; -print f("b???a?") eq "babcab" ? "ok" : "err $f", "\n"; -print f("?") eq "a" ? "ok" : "err $f", "\n"; +print f("a?z") eq "abz" ? "ok\n" : "err\n"; +print f("pe?k") eq "peak" ? "ok\n" : "err\n"; +print f("gra?te") eq "grabte" ? "ok\n" : "err\n"; +print f("a?????b") eq "ababacb" ? "ok\n" : "err\n"; +print f("?a?") eq "bab" ? "ok\n" : "err\n"; +print f("?b") eq "ab" ? "ok\n" : "err\n"; +print f("b???a?") eq "babcab" ? "ok\n" : "err\n"; +print f("?") eq "a" ? "ok\n" : "err\n"; |