Mercurial > repos > tabletprog
diff samples/rand.tp @ 162:157cc497a7f1
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 + } + } +}