給定三元組生成二次多項式

Question

該代碼的目的是定義一個sub apply_2nd_deg_polys，它取得一個匿名第二度多項式列表和一個數字列表，並將每個多項式應用於列表中的每個數字。 任何幫助表示讚賞！ （：

my @coeffs = ([1,2,3], [4,5,6]); 
my @polys = gen_2nd_deg_polys(@coeffs); 
my @numbers = (1..5); 
my @poly_maps = apply_2nd_deg_polys2(\@polys, \@numbers); 

輸出應該是：

[('1x^2 + 2x + 3 at x = 1 is ', 6), ('4x^2 + 5x + 6 at x = 1 is ', 15), ('1x^2 + 2x + 3 at x = 2 is ', 11), ('4x^2 + 5x + 6 at 
x = 2 is ', 32), ('1x^2 + 2x + 3 at x = 3 is ', 18), ('4x^2 + 5x + 6 at x = 3 is ', 57), ('1x^2 + 2x + 3 at x = 4 is ', 27), 
('4x^2 + 5x + 6 at x = 4 is ', 90), ('1x^2 + 2x + 3 at x = 5 is ', 38), ('4x^2 + 5x + 6 at x = 5 is ', 131)] 

這裏是我到目前爲止的代碼...

sub apply_2nd_deg_polys{ 
    my @list = @_; 
    my @polys = @{%_[0]}; my @numbers = @{@_[1]}; 
    push @list, $polys[0][i]; 
    push @list, $polys[i][0]; 
    return @list; 

} 

這裏是它我工作的Python變化：

def apply_2nd_deg_polys(polys,numbers): 
    newlist = [] 
    for number in numbers: 
     newlist.append(polys[0](number)) 
     newlist.append(polys[1](number)) 
    return newlist 

Answer 1

忽略幾乎所有的喲你的問題，Python代碼轉換成Perl的一個（也許是過度字面的）翻譯是：

sub apply_2nd_deg_polys { 
    my ($polys, $numbers) = @_; 
    my $newlist = []; 
    for my $number (@$numbers) { 
     push @$newlist, $polys->[0]->($number); 
     push @$newlist, $polys->[1]->($number); 
    } 
    return $newlist; 
}