From 8ae4691e677414843cf3a84d4327d303fe3e2f41 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 2 Apr 2012 20:48:33 +0200
Subject: [Io] Día 2

---
 io/myAverage.io | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 io/myAverage.io

(limited to 'io/myAverage.io')

diff --git a/io/myAverage.io b/io/myAverage.io
new file mode 100644
index 0000000..ab85a08
--- /dev/null
+++ b/io/myAverage.io
@@ -0,0 +1,15 @@
+InvalidType := Exception clone
+
+List myAverage := method(
+	acc := 0
+	self foreach(elm,
+		if (elm type == "Number") then (
+			acc = acc + elm
+		) else (
+			InvalidType raise(elm type)
+		)
+	)
+	return (acc/size(self))
+)
+
+list(1,2,3) myAverage println
-- 
cgit v1.2.3