samer@4: function i=argmax(v)
samer@4: % argmax -  linear subscript of the largest element array.
samer@4: %
samer@4: % argmax :: [[Size]->A] -> 1..prod(Size) :- numeric(A).
samer@4: 
samer@4: [m i] = max(v(:));