This is the revision history for roll in <*:##NULL>
factoid_id | subject | copula | predicate | author | namespace |
---|---|---|---|---|---|
16201 | roll | is | [eval no warnings;use Rand::MersenneTwister; $r=Rand::MersenneTwister->new(); $r->seed(); if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?$/i) {$d=$2; $c=$1||1;$o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int($r->rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}] You rolled 17 6 14 9 5 = 51 + 1 = 52 |
simcop2387 | |
10955 | roll | is | [eval use Rand::MersenneTwister; $r=Rand::MersenneTwister->new(); $r->seed(); if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int($r->rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}] Use of uninitialized value $3 in string eq at (IRC) line 1. Use of uninitialized value $4 in multiplication (*) at (IRC) line 1. You rolled 5 6 = 11 + 0 = 11 |
simcop2387 | |
8264 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}] Not Available |
simcop2387 | |
8263 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(\+|-)\s*(\d+))?)$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}] Not Available |
simcop2387 | |
8262 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(+|-)\s*(\d+))?)$/i) {$d=$2; $c=$1||1; $o=($4*($3 eq"-"?-1:1))||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}] Not Available |
simcop2387 | |
8261 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)(?:\s*(+|-)\s*(\d+))?)$/i) {$d=$2; $c=$1||1; $o=$3||0; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; $z=$t+$o; "You rolled @t = $t + $o = $z";}] Not Available |
simcop2387 | |
8260 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; "You rolled @t = $t";}] Not Available |
simcop2387 | |
5828 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; "You rolled @t = $t";}] Not Available |
simcop2387 | |
5820 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; print "You rolled @t = $t";} else {print "Syntax is dY || XdY where X is the number of dice and Y is how many sides"}] Not Available |
simcop2387 | |
5819 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; print "You rolled @t = $t";} else {print "Syntax is dY || XdY where X is the number of dice and Y is how many sides"}] Not Available |
simcop2387 | |
5815 | roll | is | [eval if ("[arg arg]" =~ /^(\d+|)d(\d+)$/i) {$d=$2; $c=$1||1; @t=(); for $i (1..$c){$q=1+int(rand($d));push@t,$q;$t+=$q;}; print "You rolled @t = $t";}] Not Available |
simcop2387 |