function vector_norm_test ( )

%*****************************************************************************80
%
%% vector_norm_test() computes a vector norm using einsum().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    09 August 2026
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  vector_norm_test():\n' );

  u = [ 1, 2, 3 ];
  fprintf ( 1, '  u:\n' );
  disp ( u );

  s = sqrt ( einsum ( 'i,i ->', u, u ) );
  fprintf ( 1, '  s = sqrt ( einsum ( "i,i ->", u, u ) )\n' );
  disp ( s );

  return
end

