Reply to thread

Message

<blockquote data-quote="Cadence" data-source="post: 9380014" data-attributes="member: 6701124">Generating abilities came up in another thread.&nbsp; One thing some folks like is having the random stats in a random order (maybe so not everyone of a given class has pretty much the same array, or maybe to let the dice guide what class they want).&nbsp; A sizeable subset of those folks don't actually make the players stick with the rolls if they are really bad.&nbsp; For those who don't like the point buy, one of the arguments is that it can lead to the situation where someone's character has much better stats than someone else's and that can lead to feel-bads.The (totally not-optimized) code in the spoiler below should randomly generate a 27 point character from 5e, where the chance of the particular array showing up is proportional to the chance it would be observed using best 3 out of 4d6.&nbsp; (So imagine generating best 3 of 4d6 in order, and throwing them out until you get one that is 27 points) .To run it, simply copy the spoilered code into either:&nbsp; <a href="https://www.mycompiler.io/new/r" target="_blank">Create a new R program - myCompiler - myCompiler</a>&nbsp;&nbsp; or&nbsp; <a href="https://rdrr.io/snippets/" target="_blank">Run R code online</a> , hit run, and wait a few seconds.&nbsp; It will generate ten of them.&nbsp; (Changing nchar= to a bigger number will make more of them).[SPOILER=&quot;The Code&quot;]zz&lt;-0x&lt;-matrix(0,nrow=262144,ncol=6)for (i in 8:15){&nbsp;for (j in 8:15){&nbsp;&nbsp; for (k in 8:15){&nbsp; &nbsp;&nbsp; for (l in 8:15){&nbsp; &nbsp; &nbsp;&nbsp; for (m in 8:15){&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; for (n in 8:15){&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; zz&lt;-zz+1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; x[zz,]&lt;-c(i,j,k,l,m,n)}}}}}}costm&lt;-x-8costm[x==14]&lt;-costm[x==14]+1costm[x==15]&lt;-costm[x==15]+2cost&lt;-apply(costm,1,sum)x&lt;-x[cost==27,]probm&lt;-matrix(0,nrow=dim(x)[1],ncol=dim(x)[2])probm[x==8]&lt;-0.0478probm[x==9]&lt;-0.0702probm[x==10]&lt;-0.0941probm[x==11]&lt;-0.1142probm[x==12]&lt;-0.1289probm[x==13]&lt;-0.1327probm[x==14]&lt;-0.1235probm[x==15]&lt;-0.1011prob&lt;-apply(probm*10,1,prod)prob&lt;-prob/sum(prob)nchar=10x[sample(1:dim(x)[1],nchar,prob=prob),][/SPOILER]Sample output:[ATTACH=full]368182[/ATTACH]I'm happy to modify the code if someone wants a different point buy or for the probabilities to match just 3d6 or whatever.I'm also happy to hear why folks would absolutely hate this.&nbsp;&nbsp; (I'm guessing one reason is that actually rolling dice is fun!)</blockquote>

[QUOTE="Cadence, post: 9380014, member: 6701124"] Generating abilities came up in another thread. One thing some folks like is having the random stats in a random order (maybe so not everyone of a given class has pretty much the same array, or maybe to let the dice guide what class they want). A sizeable subset of those folks don't actually make the players stick with the rolls if they are really bad. For those who don't like the point buy, one of the arguments is that it can lead to the situation where someone's character has much better stats than someone else's and that can lead to feel-bads. The (totally not-optimized) code in the spoiler below should randomly generate a 27 point character from 5e, where the chance of the particular array showing up is proportional to the chance it would be observed using best 3 out of 4d6. (So imagine generating best 3 of 4d6 in order, and throwing them out until you get one that is 27 points) . To run it, simply copy the spoilered code into either: [URL='https://www.mycompiler.io/new/r']Create a new R program - myCompiler - myCompiler[/URL] or [URL='https://rdrr.io/snippets/']Run R code online[/URL] , hit run, and wait a few seconds. It will generate ten of them. (Changing nchar= to a bigger number will make more of them). [SPOILER="The Code"] zz<-0 x<-matrix(0,nrow=262144,ncol=6) for (i in 8:15){ for (j in 8:15){ for (k in 8:15){ for (l in 8:15){ for (m in 8:15){ for (n in 8:15){ zz<-zz+1 x[zz,]<-c(i,j,k,l,m,n) }}}}}} costm<-x-8 costm[x==14]<-costm[x==14]+1 costm[x==15]<-costm[x==15]+2 cost<-apply(costm,1,sum) x<-x[cost==27,] probm<-matrix(0,nrow=dim(x)[1],ncol=dim(x)[2]) probm[x==8]<-0.0478 probm[x==9]<-0.0702 probm[x==10]<-0.0941 probm[x==11]<-0.1142 probm[x==12]<-0.1289 probm[x==13]<-0.1327 probm[x==14]<-0.1235 probm[x==15]<-0.1011 prob<-apply(probm*10,1,prod) prob<-prob/sum(prob) nchar=10 x[sample(1:dim(x)[1],nchar,prob=prob),] [/SPOILER] Sample output: [ATTACH type="full" alt="1718896568341.png"]368182[/ATTACH] I'm happy to modify the code if someone wants a different point buy or for the probabilities to match just 3d6 or whatever. I'm also happy to hear why folks would absolutely hate this. (I'm guessing one reason is that actually rolling dice is fun!) [/QUOTE]

Verification