diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2025-04-18 18:29:13 +0200 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2025-04-18 18:29:13 +0200 |
| commit | 2825f6fc6f3eda335737b806d6ec5eafb18391de (patch) | |
| tree | 0df910f37f308f423683ee82a174832ebe3e0886 | |
| parent | 7e69521f9844511fb323e8bb1024ad9df82a8a16 (diff) | |
| download | perlweeklychallenge-club-2825f6fc6f3eda335737b806d6ec5eafb18391de.tar.gz perlweeklychallenge-club-2825f6fc6f3eda335737b806d6ec5eafb18391de.tar.bz2 perlweeklychallenge-club-2825f6fc6f3eda335737b806d6ec5eafb18391de.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-317/
| -rw-r--r-- | challenge-317/kjetillll/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-317/kjetillll/perl/ch-2.pl b/challenge-317/kjetillll/perl/ch-2.pl index e9a12cfe94..4360f6b2e4 100644 --- a/challenge-317/kjetillll/perl/ch-2.pl +++ b/challenge-317/kjetillll/perl/ch-2.pl @@ -2,7 +2,7 @@ sub f { join( '', sort split//, pop ) eq join( '', sort split//, pop ) } print f( "desc", "dsec" ) ? "ok\n" : "error\n"; # true -print f( "fuck", "fcuk" ) ? "ok\n" : "error\n"; # true +print f( "duck", "dcuk" ) ? "ok\n" : "error\n"; # true print f( "poo", "eop" ) ? "error\n" : "ok\n"; # false print f( "stripe", "sprite" ) ? "ok\n" : "error\n"; # true @@ -33,7 +33,7 @@ sub f2 { } print f2( "desc", "dsec" ) ? "ok\n" : "error\n"; # true -print f2( "fuck", "fcuk" ) ? "ok\n" : "error\n"; # true +print f2( "duck", "dcuk" ) ? "ok\n" : "error\n"; # true print f2( "poo", "eop" ) ? "error\n" : "ok\n"; # false print f2( "stripe", "sprite" ) ? "ok\n" : "error\n"; # true |