Re^6: check possible combination of sum using given array

Wait. This is not about efficiency. I guess it’s more about what our founders used to call flexibility.

I sometimes wrote things like this:

sub nose {
   my $cuke = shift;
   1 if $cuke;
   return;
}
[download]

This should work as well:

sub nose {
   my $cuke = shift;
   1 if $cuke;
   undef;
}
[download]

And i‘m pretty sure that you are aware that return undef; AKA return; isn’t the same as return 0;. But it may be that I even forgot this issue because of lack of practice.

Code not tested because of vacation. Hence no warranty 🤪. Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Comment on Re^6: check possible combination of sum using given array Select or Download Code

Replies are listed 'Best First'.
Re^7: check possible combination of sum using given array by choroba (Cardinal) on Jul 11, 2019 at 16:44 UTC
> isn’t the same Even `return` and `return undef` aren't the same. `sub plain { return } sub Undef { return undef } my @empty = plain(); my @nonempty = Undef(); die 'Different' unless @empty == @nonempty;` [download] `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]
Re^8: check possible combination of sum using given array by karlgoethebier (Abbot) on Jul 11, 2019 at 18:02 UTC
Wow! (No kidding). This is jesuitisch raffiniert. I wonder what might happen when it’s `sub kgb {undef}`. 🤪 Probably nothing special. Works as designed. Best regards, Karl «The Crux of the Biscuit is the Apostrophe» `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help J	[reply] [d/l] [select]