///|
/// Calculate the square root of the sum of squares of four coordinates of the argument.
pub fn norm4d(a : Double, b : Double, c : Double, d : Double) -> Double {
  norm([a, b, c, d])
}