Mercurial > repos > tabletprog

diff samples/rand.tp @ 162:157cc497a7f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add rand srand and time to os module
author Mike Pavone <pavone@retrodev.com>
date Sat, 10 Aug 2013 18:58:40 -0700
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/rand.tp	Sat Aug 10 18:58:40 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
+		}
+	}
+}