From 2825f6fc6f3eda335737b806d6ec5eafb18391de Mon Sep 17 00:00:00 2001 From: KjetilS Date: Fri, 18 Apr 2025 18:29:13 +0200 Subject: https://theweeklychallenge.org/blog/perl-weekly-challenge-317/ --- challenge-317/kjetillll/perl/ch-2.pl | 4 ++-- 1 file 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 -- cgit