vector_inner_product_test <- function ( )

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

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

v = c ( 4, 5, 6 )
cat ( '  v:\n' )
print ( v )

w = einsum ( 'i,i ->', u, v )
cat ( '  w = einsum ( "i,i ->", u, v )\n' )
print ( w )