title: Program Calculate Volume Octahedron
signature: program_calculate_volume_octahedron <- function(side) {
test_code: 
  
  
  # SOLUTION CODE
  # ============================================
  PLACEHOLDER_CODE_BODY
  
  # TESTING CODE 
  # ============================================
  validate_solution <- function(actual, expected) {
      abs(actual - expected) < 1e-09
  }
  
  driver <- function(side, expected){
      if (validate_solution(PLACEHOLDER_FN_NAME(side), expected)){
          "PASSED"
      } else{
          "FAILED"
      }
  }
  
  main <- function() {
      cat(sprintf("TEST-0...%s\n",driver(
          3355.322051344013, 
          17807230335.375374
      )))
  
      cat(sprintf("TEST-1...%s\n",driver(
          -891.0551553192736, 
          -333508958.9649689
      )))
  
      cat(sprintf("TEST-2...%s\n",driver(
          8242.699647177868, 
          263998930936.71603
      )))
  
      cat(sprintf("TEST-3...%s\n",driver(
          -9259.146104439229, 
          -374202387762.81836
      )))
  
      cat(sprintf("TEST-4...%s\n",driver(
          7712.806145993083, 
          216287285897.3415
      )))
  
      cat(sprintf("TEST-5...%s\n",driver(
          -4998.858862079315, 
          -58885228987.99368
      )))
  
      cat(sprintf("TEST-6...%s\n",driver(
          9771.127582524628, 
          439772223071.1617
      )))
  
      cat(sprintf("TEST-7...%s\n",driver(
          -5415.8106399098115, 
          -74883158892.28471
      )))
  
      cat(sprintf("TEST-8...%s\n",driver(
          670.0774772280249, 
          141830229.25431916
      )))
  
      cat(sprintf("TEST-9...%s\n",driver(
          -7068.634369272122, 
          -166494655500.3635
      )))
  
  }
  
  main()
source_py: def program_calculate_volume_octahedron(side):
      return (((side * side) * side) * (math.sqrt(2) / 3))
source_cpp: double program_calculate_volume_octahedron(double side) {
    return ( ( side * side * side ) * ( sqrt ( 2 ) / 3 ) );
  }