ex 17 fini

# Exercice 17
f<-function(x,y,z)
{
  x+x*y+z*y
}
print(f(1,0,2))#1
print(f(0,1,2))#2
print(f(1,2,0))#3
sum_products<-function(x,y)
{
  p = 0
  l = length(x)
  for(i in 1:l)
  {
    p = p + x[i] * y[i]
  }
  p
}
print(sum_products(1:3, c(2,5,3)))
difference<-function(x,y)
{
  s = 0
  l=length(x)
  l2 = length(y)
  for (i in 1:l)
  {
    for (j in 1:l2)
    {
      s = s + x[i] - y[j]
    }
  }
  s
}
print(difference(1:3, c(2,5,3)))
difference2<-function(x,y)
{
  s = 0
  l=length(x)
  for (i in 1:l)
  {
    for (j in 1:l)
    {
      s = s + x[i] - y[j]
    }
  }
  s
}
print(difference2(1:3, 1:3))