Advertisement
Guest User

Untitled

a guest
Sep 4th, 2016
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
J 0.11 KB | None | 0 0
  1. NB. euler 11
  2. mp=.4&(>./@:(*/\))"1
  3. diag=.mp`1:@.(4&>@:#)/.
  4. solve=: [: >./ [: >./@> mp ; mp@:|: ; diag ; diag@:|.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement