title: Program Find Slope Line
signature: program_find_slope_line <- function(x1, y1, x2, y2) {
test_code: 
  
  
  # SOLUTION CODE
  # ============================================
  PLACEHOLDER_CODE_BODY
  
  # TESTING CODE 
  # ============================================
  validate_solution <- function(actual, expected) {
      abs(actual - expected) < 1e-09
  }
  
  driver <- function(x1, y1, x2, y2, expected){
      if (validate_solution(PLACEHOLDER_FN_NAME(x1, y1, x2, y2), expected)){
          "PASSED"
      } else{
          "FAILED"
      }
  }
  
  main <- function() {
      cat(sprintf("TEST-0...%s\n",driver(
          236.27324548309292, 5792.493225762838, 7177.837879115863, 1289.5700425822731, 
          -0.6486899453998202
      )))
  
      cat(sprintf("TEST-1...%s\n",driver(
          -9201.144918204123, -2716.3347716140406, -5161.142121227645, -3205.784279961129, 
          -0.12115078452752318
      )))
  
      cat(sprintf("TEST-2...%s\n",driver(
          3480.4716834445326, 3577.9608612055613, 8611.515262945342, 6744.864707668983, 
          0.617204628531244
      )))
  
      cat(sprintf("TEST-3...%s\n",driver(
          -6915.538971485092, -4113.601103381095, -748.3462104020822, -9245.271700539257, 
          -0.8320918116165706
      )))
  
      cat(sprintf("TEST-4...%s\n",driver(
          8887.97173657486, 1678.4080012662428, 8709.574949883017, 8548.492675510739, 
          -38.51013687881985
      )))
  
      cat(sprintf("TEST-5...%s\n",driver(
          -3785.5177159369946, -3084.67461899163, -7415.76208254121, -887.5389305564152, 
          -0.6052307962095809
      )))
  
      cat(sprintf("TEST-6...%s\n",driver(
          3037.6696554256832, 4432.445827549, 8387.304165588026, 611.3373507518394, 
          -0.7142746798007333
      )))
  
      cat(sprintf("TEST-7...%s\n",driver(
          -7925.458496016523, -3350.27411882042, -5619.767086756504, -1185.7423219907591, 
          0.9387777514963889
      )))
  
      cat(sprintf("TEST-8...%s\n",driver(
          1404.2919985268031, 8971.636233373416, 3039.112051378511, 1947.6756252708972, 
          -4.2964732392719505
      )))
  
      cat(sprintf("TEST-9...%s\n",driver(
          -4748.744241168378, -675.557388148954, -5998.241086029875, -4236.658178504375, 
          2.85002783720527
      )))
  
  }
  
  main()
source_py: def program_find_slope_line(x1, y1, x2, y2):
      return (float((y2 - y1)) / (x2 - x1))
source_cpp: float program_find_slope_line(float x1, float y1, float x2, float y2) {
    return ( y2 - y1 ) / ( x2 - x1 );
  }