Advertisement
Guest User

Untitled

a guest
Oct 26th, 2016
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. recMap[f_, (Plus[e1_, e2 : PatternSequence[_, __]])] := f[e1] + recMap[f, Plus[e2]];
  2. recMap[f_, (Plus[e1_, e2_])] := Plus[f[e1], f[e2]];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement