diff samples/rand.tp @ 171:869399ff7faa

Merge
author Mike Pavone <pavone@retrodev.com>
date Tue, 13 Aug 2013 22:01:00 -0700
parents 157cc497a7f1
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/rand.tp	Tue Aug 13 22:01:00 2013 -0700
@@ -0,0 +1,13 @@
+#{
+	main <- :args {
+		os srand: (os time)
+		count <- 1
+		if: (args length) > 1 {
+			count <- int32: (args get: 1)
+		}
+		while: { count > 0 } do: {
+			print: (hex: (os rand64)) . "\n"
+			count <- count - 1
+		}
+	}
+}