Advertisement
Guest User

Untitled

a guest
May 31st, 2016
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.56 KB | None | 0 0
  1. f @@ {a,b,c,...} == f[a,b,c,...]
  2.  
  3. f @@ g[a,b] == f[a,b]
  4.  
  5. f[Sequence[a,b]] == f[a,b]
  6.  
  7. f[ Sequence @@ {a,b}] == f[a,b]
  8.  
  9. Apply[f, {{a,b},{c,d}}, {1}] == {f[a,b], f[c,d]}
  10.  
  11. f[l_List]:=l[[1]]^2+l[[2]]^2
  12.  
  13. g[l_List] := l.l
  14.  
  15. h[l_List]:= Norm[l]^2
  16.  
  17. Print[{f[{a, b}], g[{a, b}], h[{a, b}]}]
  18.  
  19. {a^2 + b^2, a^2 + b^2, Abs[a]^2 + Abs[b]^2}
  20.  
  21. i[l_List] := Total@Table[j^2, {j, l}]
  22.  
  23. j[l_List] := SquaredEuclideanDistance[l, ConstantArray[0, Length[l]]
  24.  
  25. f[{__}] = a ^ 2 + b ^ 2;
  26.  
  27. s[l_List] = Total[l]
  28.  
  29. s[l_List] := Total[l]
  30.  
  31. f[{a_,b_}]:= a^2+b^2;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement