RPG attributes generator: Difference between revisions
Content added Content deleted
m (Commodore BASIC: Corrected variables in dice sorting subroutine (lines 2000 through 2020).) |
ReeceGoding (talk | contribs) (Added R.) |
||
Line 2,788: | Line 2,788: | ||
<pre>Rolls: (11 16 10 13 12 15) |
<pre>Rolls: (11 16 10 13 12 15) |
||
Total: 77</pre> |
Total: 77</pre> |
||
=={{header|R}}== |
|||
The base library already has an attributes function, so we avoid using that name. Otherwise, this is R's bread and butter. |
|||
<lang R>genStats <- function() |
|||
{ |
|||
stats <- c(STR = 0, DEX = 0, CON = 0, INT = 0, WIS = 0, CHA = 0, TOT = 0) |
|||
for(i in seq_along(stats)) |
|||
{ |
|||
results <- sample(6, 4, replace = TRUE) |
|||
stats[i] <- sum(results[-which.min(results)]) |
|||
} |
|||
if(sum(stats >= 15) < 2 || (stats[length(stats)] <- sum(stats)) < 75) Recall() else stats |
|||
} |
|||
print(genStats())</lang> |
|||
{{out}} |
|||
<pre>STR DEX CON INT WIS CHA TOT |
|||
9 13 16 11 14 15 88 </pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |