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/guess.io | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 io/guess.io

(limited to 'io/guess.io')

diff --git a/io/guess.io b/io/guess.io
new file mode 100644
index 0000000..49ceeaa
--- /dev/null
+++ b/io/guess.io
@@ -0,0 +1,26 @@
+stdin := File standardInput
+secret := Random value(1, 100) round
+tries := 10
+n := nil
+newdiff := nil
+diff := nil
+
+"Guess the secret number between 1 and 100 :D" println
+
+while (n != secret and tries > 0,
+	write("You have ", tries, " tries left\nNumber? > ")
+	n = stdin readLine asNumber
+
+	newdiff = (secret - n) abs
+	if (diff isNil) then (
+		diff = newdiff
+	) else (
+		if (newdiff < diff, "Hotter", "Colder") println
+		diff = newdiff
+	)
+
+	"" println
+	tries = tries - 1
+)
+
+if (n == secret, "Correct!", "Epic fail!") println
-- 
cgit v1.2.3