Guest User

Untitled

a guest
Feb 23rd, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. f[x_,y_] := {F@@x, G@@y}
  2.  
  3. Through[f[g, h][{1,2,3,4,5,6,7,8,9}]]
  4.  
  5. Through[f[g[#]&, h[#]&][{1,2,3,4,5,6,7,8,9}]]
  6.  
  7. {g[{1, 2, 3, 4, 5, 6, 7, 8, 9}], h[{1, 2, 3, 4, 5, 6, 7, 8, 9}]}
  8.  
  9. {F[g[#1]][{1, 2, 3, 4, 5, 6, 7, 8, 9}], G[h[#1]][{1, 2, 3, 4, 5, 6, 7, 8, 9}]}
  10.  
  11. ReleaseHold[Through[Hold[f][g, h][{1, 2, 3, 4, 5, 6, 7, 8, 9}]]]
  12.  
  13. {F[{1, 2, 3, 4, 5, 6, 7, 8, 9}], G[{1, 2, 3, 4, 5, 6, 7, 8, 9}]}
Add Comment
Please, Sign In to add comment