content: module Model where
  score :: [Double] -> [Double]
  score input =
      mulVectorNumber (addVectors (func0) (func1)) (0.5)
      where
          func0 =
              if input !! 3 <= 0.75 then
                  [1.0, 0.0, 0.0]
              else
                  if input !! 2 <= 4.75 then
                      [0.0, 1.0, 0.0]
                  else
                      if input !! 2 <= 5.049999952316284 then
                          if input !! 3 <= 1.75 then
                              [0.0, 0.8333333333333334, 0.16666666666666666]
                          else
                              [0.0, 0.08333333333333333, 0.9166666666666666]
                      else
                          [0.0, 0.0, 1.0]
          func1 =
              if input !! 3 <= 0.800000011920929 then
                  [1.0, 0.0, 0.0]
              else
                  if input !! 0 <= 6.25 then
                      if input !! 2 <= 4.8500001430511475 then
                          [0.0, 0.9487179487179487, 0.05128205128205128]
                      else
                          [0.0, 0.0, 1.0]
                  else
                      if input !! 3 <= 1.550000011920929 then
                          [0.0, 0.8333333333333334, 0.16666666666666666]
                      else
                          [0.0, 0.02564102564102564, 0.9743589743589743]
  addVectors :: [Double] -> [Double] -> [Double]
  addVectors v1 v2 = zipWith (+) v1 v2
  mulVectorNumber :: [Double] -> Double -> [Double]
  mulVectorNumber v1 num = [i * num | i <- v1]
  