1 files changed, 31 insertions, 0 deletions
diff --git a/ipl/gprocs/distance.icn b/ipl/gprocs/distance.icn
new file mode 100644
index 0000000..60fe238
--- /dev/null
+++ b/ipl/gprocs/distance.icn
@@ -0,0 +1,31 @@
+############################################################################
+#
+#	File:     distance.icn
+#
+#	Subject:  Procedure to compute distance in n-dimensions
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     January 3, 1994
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  distance(d1, d2, d3, ...) returns the distance between points in n-space
+#  distances d1, d2, d3, ... from the origin.
+#
+############################################################################
+
+procedure distance(d[])
+   local sum
+
+   sum := 0
+
+   every sum +:= !d ^ 2
+
+   return sqrt(sum)
+
+end