Dungeons and Dragons die roller (Golf)

Replies are listed 'Best First'.
Re: Dungeons and Dragons die roller (Golf) by choroba (Cardinal) on Sep 30, 2016 at 22:41 UTC
Without really thinking: `-p ($d,$s,$=)=split/[d+]/;map$=+=1+rand$s,1..$d;$_=$=.$/ 1 2 3 4 5 12345678901234567890123456789012345678901234567890123` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re: Dungeons and Dragons die roller (Golf) by Grimy (Pilgrim) on Oct 25, 2016 at 16:06 UTC
Straightforward 39 bytes (37 + 2 flags) solution : `#!perl -pl /\d+\+/;$-+=rand$&for 1..$_;$_+=$'+$-` [download] More complex 35 bytes solution : #!perl -pl s/d/q(+~~rand($')+d)x$`/e;$_=eval [download] Due to the use of $', they can’t easily be ran from the command-line. Just store them in a file.	[reply] [d/l] [select]
Re^2: Dungeons and Dragons die roller (Golf) by Anonymous Monk on Nov 04, 2016 at 18:51 UTC
After staring at this for a while, I'm not sure how exactly this works (mainly, what does +~~ do?). Would it be possible to explain how the 35 bytes solution works?	[reply]
Re^3: Dungeons and Dragons die roller (Golf) by tybalt89 (Monsignor) on Nov 05, 2016 at 02:30 UTC
~~rand($') is the same as int(rand($'))	[reply]
Re^4: Dungeons and Dragons die roller (Golf) by Anonymous Monk on Nov 07, 2016 at 17:00 UTC
Re^5: Dungeons and Dragons die roller (Golf) by tybalt89 (Monsignor) on Nov 07, 2016 at 19:17 UTC
Some notes below your chosen depth have not been shown here
Re: Dungeons and Dragons die roller (Golf) by stevieb (Canon) on Sep 30, 2016 at 20:30 UTC
That produces the same result every 'roll' it seems...	[reply]
Re^2: Dungeons and Dragons die roller (Golf) by zsl (Novice) on Oct 03, 2016 at 17:51 UTC
That's strange, I tested it out and it worked fine. I'm using v5.18.2, what are you using? $thanks++	[reply]
Re: Dungeons and Dragons die roller (Golf) by Tanktalus (Canon) on Oct 24, 2016 at 17:25 UTC
To steal choroba's post: `echo 2d12+13 \| \ perl -ple ' ($d,$s,$_)=split/[d+]/;map$_+=1+rand$s,1..$d ' 1 2 3 4 12345678901234567890123456789012345678901234` [download]	[reply] [d/l]
Re^2: Dungeons and Dragons die roller (Golf) by Grimy (Pilgrim) on Oct 25, 2016 at 16:07 UTC
This always prints 13, which is not a possible result for 2d12+13.	[reply]


go ahead... be a heretic
	PerlMonks