Mercurial > repos > tabletprog
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 + } + } +}