Re: Newbie question

Yet another inevitable TMTOWTDI:

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use Math::Prime::Util qw(sumdigits);
use Data::Dump;

my @input = (-222, -221, -21, 0, 1, 1, 2, 3, 
              5, 8, 13, 21, 34, 55, 89, 144);

my @ans = map { (sumdigits($_) % 2) ? $_ : () } @input;

dd \@ans;

__END__

Karls-Mac-mini:monks karl$ ./11146306.pl
[-221, -21, 1, 1, 3, 5, 21, 34, 89, 144]
[download]

See also map, Data::Dump, Math::Prime::Util and ntheory.

Best regards, Karl

ŤThe Crux of the Biscuit is the Apostropheť

Comment on Re: Newbie question Download Code

Replies are listed 'Best First'.
Re^2: Newbie question by LanX (Saint) on Aug 23, 2022 at 19:40 UTC
> Yet another inevitable TMTOWTDI: KISS! s/map/grep/ ;-) ~~`my @ans = map { (sumdigits($_) % 2) ? $_ : () } @input;`~~ `... my @ans = grep { sumdigits($_) % 2 } @input; ...` [download] Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re^3: Newbie question by AnomalousMonk (Archbishop) on Aug 23, 2022 at 20:30 UTC
Or even: `my @ans = grep 1 & sumdigits($_), @input;` Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^3: Newbie question by karlgoethebier (Abbot) on Aug 23, 2022 at 20:17 UTC
"Monachus quidem varietas maxime delectat". Or so. ŤThe Crux of the Biscuit is the Apostropheť	[reply]
Re^4: Newbie question by roho (Bishop) on Aug 24, 2022 at 03:04 UTC
Excellent quote karlgoethebier! After all, it is the spice of life. :) "It's not how hard you work, it's how much you get done."	[reply]
Re^2: Newbie question by oldB51 (Sexton) on Aug 25, 2022 at 06:52 UTC
These are incredible modules Karl. Clearly it is important to know what pre built modules are available. That said, at this stage of my Perl journey, I'm glad I built my programme without the modules first. Thanks for you help.	[reply]
Re^3: Newbie question by karlgoethebier (Abbot) on Aug 26, 2022 at 10:38 UTC
Yes, sure. Some more inspiration might be found here. Sometimes it is good to take a look under a hood. Read more... (870 Bytes) Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l]