Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- W[n_,m_]/;f[n]==g[m]:=1
- W[n_,m_]/;f[n]!=g[m]:=2
- Table[W[n,m],{n,1,4},{m,1,4}]
- W[n_,m_]/;n==g[m]:=1
- W[n_,m_]/;n!=g[m]:=2
- Table[W[n,m],{n,1,4},{m,1,4}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement