Random number generator (included): Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) m (→{{header|REXX}}: oops) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: show that ooRexx supports negative integers and a range of up to 999999999) |
||
Line 510: | Line 510: | ||
* Please add the output from other REXXes |
* Please add the output from other REXXes |
||
* 10.09.2013 Walter Pachl added REXX/TSO |
* 10.09.2013 Walter Pachl added REXX/TSO |
||
* 01.08.2014 Walter Pachl show what ooRexx supports |
|||
**********************************************************************/ |
**********************************************************************/ |
||
Parse Version v |
Parse Version v |
||
Line 517: | Line 518: | ||
ol=ol random(1,10) |
ol=ol random(1,10) |
||
End |
End |
||
If left(v,11)='REXX-ooRexx' Then |
|||
ol=ol random(-999999999,0) /* ooRexx supports negative limits */ |
|||
Say ol</lang> |
Say ol</lang> |
||
'''outputs''' from various REXX interpreters: |
'''outputs''' from various REXX interpreters: |
||
<pre> |
<pre> |
||
REXX-ooRexx_4.1.3(MT) 6.03 4 Jul 2013: 3 10 6 8 6 9 9 1 1 6 |
REXX-ooRexx_4.1.3(MT) 6.03 4 Jul 2013: 3 10 6 8 6 9 9 1 1 6 |
||
REXX-ooRexx_4.2.0(MT)_32-bit 6.04 22 Feb 2014: 3 10 6 8 6 9 9 1 1 6 -403019526 |
|||
REXX/Personal 4.00 21 Mar 1992: 7 7 6 7 8 8 5 9 4 7 |
REXX/Personal 4.00 21 Mar 1992: 7 7 6 7 8 8 5 9 4 7 |
||
REXX-r4 4.00 17 Aug 2013: 8 10 7 5 4 2 10 5 2 4 |
REXX-r4 4.00 17 Aug 2013: 8 10 7 5 4 2 10 5 2 4 |