{"request":{"endpoint":"https://exercism.org/api/v2/tracks/perl5/exercises/sum-of-multiples/community_solutions","query":{},"options":{"initial_data":{"results":[{"uuid":"422f5740eb36423d8467a9beeffb2dc2","snippet":"sub sum_of_multiples ( $factors, $limit, $sum = 0 ) { for my $i ( 1 .. $limit - 1 ) { for my $factor ( @$factors ) { next if $factor == 0; next unless $i % $factor == 0; $sum += $i and last } } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":9,"num_loc":11,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-03-26T11:18:43.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"habere-et-dispertire"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/habere-et-dispertire","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"e222f319afbc401cb112d393f31de548","snippet":"use List::Util qw(uniqnum sum); use Exporter qw; our @EXPORT_OK = qw; sub sum_of_multiples ( $factors, $limit ) { my @multipliers = qw(0); foreach my $base_value (@$factors) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":20,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-09-09T10:06:42.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"Solathian"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/Solathian","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"34c45021e2a443968c891258d9987e7f","snippet":"sub sum_of_multiples ( $factors, $limit ) { my %multiples; for my $factor ($factors->@*) { next if $factor <= 0; my $multiple = $factor; while ($multiple < $limit) { $multiples{$multiple}++; $multiple += $factor; } } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-10-04T13:38:22.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"oylenshpeegul"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/oylenshpeegul","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"9dc7e1b2d8964742ad019010c52fbfcf","snippet":"use List::Util qw/ any sum0 /; sub sum_of_multiples($factors, $limit) { return sum0 grep { my $n = $_; any {$n % $_ == 0} grep {$_ != 0} @$factors } 1 .. $limit-1; } ","num_views":0,"num_stars":1,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":6,"num_loc":14,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2018-11-20T20:45:06.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"glennj"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/glennj","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"097cada66e414303baf44347d9d561f3","snippet":"sub sum_of_multiples ( $factors, $limit ) { my $sum = 0; //, grep($_ && 0 == $' % $_, @$factors) and $sum += $_ for 1..$limit-1; $sum } 1; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":11,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2024-07-10T03:12:48.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"Steffan153"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/Steffan153","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"5831e7e011014946806a8503dbe39ed2","snippet":"sub sum_of_multiples ( $factors, $limit ) { if ($limit < 1){ # if $limit == 0, will cause infinite loop! return 0; } my %products; for my $multiplicand (@$factors){ next if ($multiplicand < 1); # a multiplicand of 0 will cause an infinite loop my $multiplier = 1; my $product = 0; while ($product < $limit){ ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":30,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-11-07T03:27:29.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"RichMath"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/RichMath","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"f90bad2ebe5348dd8727780ffcf19c16","snippet":"sub sum_of_multiples ( $factors, $limit ) { my %seen; my $sum = 0; foreach my $n (@$factors) { next if $n == 0; for (my $i = $n; $i < $limit; $i += $n) { next if $seen{$i}++; $sum += $i; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":18,"iteration_status":"actionable_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-03-25T11:13:23.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"lucagamba16-sys"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/lucagamba16-sys","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"0aca670afce44d4db3780eba6757b7d1","snippet":"sub sum_of_multiples($factors, $limit) { my (%multiples, $sum); foreach (@{$factors}) { next unless $_; for (my $i = $_; $i < $limit; $i += $_) { $multiples{$i} = 1 } } map { $sum += $_ } keys(%multiples); return $sum || 0; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":16,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2023-02-04T19:09:38.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"JohnMertz"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/JohnMertz","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"13fc1ff0ac9e463b9ec86d8ea5609c58","snippet":"sub sum_of_multiples { my ($factors, $limit) = @_; my @multiples = (0) x $limit; foreach my $factor (@$factors) { next if $factor == 0; for (my $multiple = $factor; $multiple < $limit; $multiple += $factor) { $multiples[$multiple] = 1; } } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":22,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-01-31T21:10:29.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"FranklinChen"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/FranklinChen","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"8459c3f43bb94284b014f8e5c650cb65","snippet":"sub sum_of_multiples ( $factors, $limit ) { my %unique_multiples; # Iterate over each item base value for my $factor (@$factors) { # Skip 0 because it doesn't generate positive multiples below the limit next if $factor == 0; # Collect multiples of the factor that are strictly less than the limit my $current_multiple = $factor; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":21,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-07-17T16:47:17.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"david82"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/david82","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"fc3d5850b6094f9084443708c7c4c557","snippet":"sub sum_of_multiples ( $factors, $limit ) { my @fact_arr=@$factors; my @new_arr; foreach my $item(@fact_arr) { for(my $i=1;$i<=$limit;$i++) { push @new_arr,$item*$i if $item*$i<$limit; } } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":20,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-02-06T06:39:34.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"NavinVP29561"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/NavinVP29561","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"e90c3a42c238488c8a75970d7ccf9dac","snippet":"use List::Util qw( sum ); use Exporter qw; our @EXPORT_OK = qw; sub sum_of_multiples ( $factors, $limit ) { my %set = ( 0 => 1 ); for my $fact (@$factors) { next unless $fact; my $mult = 0; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":15,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-04-20T15:21:23.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"MrBird88"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/MrBird88","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"74d511686e694eb1a81655d6b2d1c6d5","snippet":"use List::Util qw/ any sum0 /; sub sum_of_multiples($divisors, $barrier) { return sum0 grep { my $val = $_; any { $val % $_ == 0 } grep { $_ != 0 } @$divisors } 1 .. $barrier - 1; } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":14,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-08-01T08:14:25.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"Rohankapri"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/Rohankapri","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"41b095c110d84918bbd8ba9383c6b037","snippet":"sub summer { my ($list) = @_; my $sum = 0; foreach(@$list) { $sum += $_; } return $sum; } sub sum_of_multiples ( $factors, $limit ) { ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":27,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-11-14T18:30:41.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"shootmanng"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/shootmanng","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"62692abac15b41a8aeea497cb09ffef7","snippet":"use List::Util qw; use Exporter qw; our @EXPORT_OK = qw; sub _multiples_of_one ( $factor, $limit ) { return (0) if $factor == 0; my @result = (); my $multiple = $factor; while ($multiple < $limit) { ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":21,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-12-01T08:31:14.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"pdp-11"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/pdp-11","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"603814250825489aa1aa7885cd0fc5a0","snippet":"sub sum_of_multiples ($factors, $limit) { my %set; for my $factor (@$factors) { next if $factor <= 0; for (my $n = $factor; $n < $limit; $n += $factor) { $set{$n} = undef; } } my $sum = 0; $sum += $_ for keys %set; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":17,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-09-08T01:50:33.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"ldv1970"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/ldv1970","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"ffdb9de14c2144a791ee7a4cf4b49d0d","snippet":"use List::Util qw(sum uniq); our @EXPORT_OK = qw(sum_of_multiples); sub sum_of_multiples ($factors, $limit) { my @numbers = (0); for (grep { $_ > 0 } @$factors) { for (my $i = $_; $i < $limit; $i += $_) { push(@numbers, $i); } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":15,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-10-03T00:29:20.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"chicolismo"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/chicolismo","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"d8af7ca9af8b44528e456320cb32d537","snippet":"use List::Util qw; use Exporter qw; our @EXPORT_OK = qw; sub sum_of_multiples ( $factors, $limit ) { return sum0 uniq map { my $f = $_; map { $_ * $f } 1 .. int(($limit - 1) / $f) } grep { $_ > 0 } @$factors; } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":3,"num_loc":11,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-10-15T02:40:13.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"kenokabe"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/kenokabe","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"f4185f8ea00e4e488e0a90168dd73ec1","snippet":"sub sum_of_multiples ( $factors, $limit ) { my %hash; for (@$factors) { next if ($_ <= 0); my $val = $_; while ($val < $limit) { $hash{$val} = 1; $val += $_; } } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":21,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-11-04T08:16:57.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"Hiliox"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/Hiliox","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"e35a8db162e346f69e92d8d8d6dfc6c2","snippet":"use Data::Dump qw( pp ); use List::Util qw( sum ); sub sum_of_multiples { my ( $factors, $limit ) = @_; my %numbers; for my $factor ( @$factors ) { $numbers{ $factor * $_ } = 1 for 1 .. ( $factor ? int( ( $limit - 1 ) / $factor ) : 1 ); ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-01-09T01:50:19.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"muthm"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/muthm","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"7912b064dd984a90b99d77278f51f6ce","snippet":"sub sum_of_multiples($factors, $limit) { my %d; for (@$factors) { $_ or next; for (my $i = $_; $i < $limit; $i += $_) { $d{$i} = 1 } } my $r = 0; $r += $_ for keys %d; return $r } 1; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":11,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-04-24T02:55:21.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"anseok"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/anseok","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"a0765f2f2af04bf0bc4ec3e1b4ac5fc0","snippet":"sub sum_of_multiples ( $factors, $limit ) { my ($sum, %n); for my $n (grep { $_ > 0 } @$factors) { my $i = 0; $n{$n * $i} = 1 while $n * ++$i < $limit; } $sum += $_ for keys %n; return $sum || 0; } 1; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":12,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-01-19T07:04:29.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"shebang"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/shebang","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}},{"uuid":"5bd7fbcbf8824d59b029cf0f5f169bb4","snippet":"sub sum_of_multiples ( $factors, $limit ) { my $tot = 0; my %seen; return 0 if (@{$factors} == 0); foreach (@$factors) { my $mult = 1; next if ($_ == 0); while ($mult * $_ < $limit) { $tot = $mult * $_; $seen{$tot} = 1; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":24,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-06-24T23:23:04.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"einheit"},"exercise":{"title":"مجموع المضاعفات","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/solutions/einheit","private_iterations_url":"https://exercism.org/ar/tracks/perl5/exercises/sum-of-multiples/iterations"}}],"meta":{"current_page":1,"total_count":23,"total_pages":1,"unscoped_total":23}}}}}

مسارات اللغات

تعلّم البرمجة مع Jiki

رحلتك

مفضلاتكجديد

مزايا Exercism

فيديوهات المجتمع

سلسلة المقدمات الموجزة

مقابلات وقصص

Discord

المنتدى

البدء

الإرشاد

الوثائق

المساهمون

المترجمونجديد

تبرّع

عن Exercism

أثرنا

مزامن GitHubجديد

Insiders