C:\docs>perl -mList::Util=sum -e"map print( qq[@$_ : = ], sum @$_ ), [ + map int( 1+rand( 50 ) ), 1 .. 5 ] while <STDIN>" 41 19 15 43 36 : = 154 26 19 12 4 40 : = 101 44 18 1 25 36 : = 124 25 50 48 7 42 : = 172 24 22 3 40 48 : = 137 19 32 7 48 19 : = 125 12 31 9 7 44 : = 103 19 12 41 17 2 : = 91 39 34 5 33 31 : = 142 42 18 15 5 2 : = 82 2 30 32 37 13 : = 114 1 45 2 3 11 : = 62 5 19 48 3 45 : = 120 37 5 37 50 5 : = 134 24 46 16 42 4 : = 132 38 33 15 18 1 : = 105 31 24 6 13 1 : = 75 33 46 9 15 36 : = 139 7 1 5 45 48 : = 106 8 45 38 19 45 : = 155 21 13 18 27 50 : = 129 29 12 29 33 28 : = 131 43 18 28 23 2 : = 114 47 24 45 4 16 : = 136 6 40 4 7 19 : = 76 46 23 31 16 48 : = 164 35 10 36 43 26 : = 150 21 23 16 29 22 : = 111 46 49 5 1 13 : = 114 15 3 11 30 43 : = 102 42 24 31 39 32 : = 168 29 5 8 34 2 : = 78 31 13 28 19 47 : = 138 6 29 1 29 31 : = 96 31 2 26 27 14 : = 100 27 14 26 47 1 : = 115 40 29 14 28 16 : = 127Terminating on signal SIGINT(2)
In reply to Re: Dice roll chances
by BrowserUk
in thread Dice roll chances
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |