如何生成一簇匿名函数

Question

想生成一簇

{#1, #2, #3}.{a, b, c} + d &

的匿名函数来表示一簇平面，其中形如  {{a,b,c},d} 的数据有 32 个。

也就是要得到形如

{a1#1+b1#2+c1#3+d1 & ,a2#1+b2#2+c2#3+d2 &,..., an#1+bn#2+cn#3+dn &}

Answer 1

f[k_] := Evaluate[{#1, #2, #3, 
      1}.(ToExpression[# <> ToString[k]] & /@ 
       CharacterRange["a", "d"])] &;
f /@ Range[32]

Answer 2

想了另外两个方案。

第一个，替换由 x,y,z 定义的函数。第二个，直接来

list = {{{a1, b1, c1}, d1}, {{a2, b2, c2}, d2}, {{a3, b3, c3},d3}};
 Function /@ ({x, y, z}.# & /@ First /@ list + 
    Last /@ list /. {x -> Slot@1, y -> Slot@2, z -> Slot@3})

list = {{{a1, b1, c1}, d1}, {{a2, b2, c2}, d2}, {{a3, b3, c3}, d3}};
Function /@ (Slot /@ Range[3].# & /@ First /@ list + Last /@ list)