vector_norm_test <- function ( )

#*****************************************************************************80
#
## vector_norm_test() computes a vector norm using einsum().
#
#  Licensing:
#
#    This code is distributed under the MIT license. 
#
#  Modified:
#
#    07 August 2026
#
#  Author:
#
#    John Burkardt
#
cat ( '' )
cat ( '  vector_norm_test():\n' )

u = c ( 1, 2, 3 )
cat ( '  u:\n' )
print ( u )

s = sqrt ( einsum ( 'i,i ->', u, u ) )
cat ( 's = sqrt ( einsum ( "i,i ->", u, u ) )\n' )
print ( s )