So you mean 9813 is the white queen? On 29 Dec 2014 19:43, "'Pascal Jasmin' via Programming" < programm...@jsoftware.com> wrote:
> the queen appears wrong as it is supposed to be in 4th column from the > left. > > > ----- Original Message ----- > From: Björn Helgason <gos...@gmail.com> > To: Programming forum <programm...@jsoftware.com> > Cc: > Sent: Monday, December 29, 2014 2:34 PM > Subject: Re: [Jprogramming] Repeated rolling dice > > I discovered the dice unicode while looking for the chess pieces. > > I found them close by. > > I am not sure if I am displaying the correct unicodes for the queen and > king: > > 8 8$ u: (|.(8$9823),9820 9822 9821 9819 9818 9821 9822 > 9820),(32$32),(8$9817),9814 9816 9815 9812 9813 9815 9816 9814 > ♜♞♝♚♛♝♞♜ > ♟♟♟♟♟♟♟♟ > > > > > ♙♙♙♙♙♙♙♙ > ♖♘♗♔♕♗♘♖ > On 29 Dec 2014 17:39, "Björn Helgason" <gos...@gmail.com> wrote: > > > > > To display the dice: > > > > u: 9856+i. 6 > > ⚀⚁⚂⚃⚄⚅ > > > > u: 9855+5 1 4 1 5 2 2 6 2 4 5 6 1 3 6 2 1 4 4 2 > > ⚄⚀⚃⚀⚄⚁⚁⚅⚁⚃⚄⚅⚀⚂⚅⚁⚀⚃⚃⚁ > > On 29 Dec 2014 11:15, "Linda Alvord" <lindaalv...@verizon.net> wrote: > > > >> After reading this thread from September, I couldn't resist an > "elementary > >> school" version, shown twice below: > >> > >> > >> > >> f=: 13 :'>:?y$6' > >> > >> ]A=:f 20 NB. Original rolls > >> > >> 5 1 4 1 5 2 2 6 2 4 5 6 1 3 6 2 1 4 4 2 > >> > >> }:1,6~:A > >> > >> 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 0 1 1 1 1 > >> > >> ]B=:(}:1,6~:A)<;.1 A NB. Boxes show extra > rolls > >> > >> --T-T-T-T-T-T-T---T-T-T---T-T---T-T-T-T-┐ > >> > >> │5│1│4│1│5│2│2│6 2│4│5│6 1│3│6 2│1│4│4│2│ > >> > >> L-+-+-+-+-+-+-+---+-+-+---+-+---+-+-+-+-- > >> > >> ]C=:+/"1 >B NB. Value of rolls > >> > >> 5 1 4 1 5 2 2 8 4 5 7 3 8 1 4 4 2 > >> > >> $C NB. Usable answers > >> > >> 17 > >> > >> > >> > >> f=: 13 :'>:?y$6' > >> > >> ]A=:f 20 NB. Original rolls > >> > >> 1 2 6 6 6 5 3 5 1 6 6 3 1 4 2 6 4 1 2 2 > >> > >> }:1,6~:A > >> > >> 1 1 1 0 0 0 1 1 1 1 0 0 1 1 1 1 0 1 1 1 > >> > >> ]B=:(}:1,6~:A)<;.1 A NB. Boxes show extra > rolls > >> > >> --T-T-------T-T-T-T-----T-T-T-T---T-T-T-┐ > >> > >> │1│2│6 6 6 5│3│5│1│6 6 3│1│4│2│6 4│1│2│2│ > >> > >> L-+-+-------+-+-+-+-----+-+-+-+---+-+-+-- > >> > >> ]C=:+/"1 >B NB. Value of rolls > >> > >> 1 2 23 3 5 1 15 1 4 2 10 1 2 2 > >> > >> $C NB. Usable answers > >> > >> 14 > >> > >> > >> > >> Linda > >> > >> > >> > >> > >> > >> -----Original Message----- > >> From: programming-boun...@forums.jsoftware.com > >> [mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Raul > >> Miller > >> Sent: Friday, September 26, 2014 11:50 PM > >> To: Programming forum > >> Subject: Re: [Jprogramming] Repeated rolling dice > >> > >> > >> > >> In addition to Pascal's comments, "0 can sometimes run into an issue > with > >> word formation rules (when the argument to the right begins with a > >> number). > >> > >> > >> > >> Thanks, > >> > >> > >> > >> -- > >> > >> Raul > >> > >> > >> > >> On Fri, Sep 26, 2014 at 12:05 PM, Johann Hibschman < > >> <mailto:jhibsch...@gmail.com> jhibsch...@gmail.com> > >> > >> wrote: > >> > >> > >> > >> > Thanks, that's helpful, although the tacit version of "bulk" is a bit > >> > >> > too much for me to parse. > >> > >> > > >> > >> > I imagine factor of 2 helps because it gets you over the expected 6r5 > >> > >> > rolls per "game", assuming I did that recurrence right > >> > >> > (e=(5r6*1)+1r6*(1+e)). > >> > >> > > >> > >> > I do have some lingering style questions though: > >> > >> > > >> > >> > 1. It looks to me like David Lambert's solution used both (&>) and > >> > >> > (">) to force a verb to apply to the atoms, which I would write ("0). > >> > >> > Are there any particular reasons to prefer one over the other? ("0) > >> > >> > may require a ([) to avoid merging with a follow-up literal, (&>) > >> > >> > seems a little like exploiting a side-effect of (>), and (">) could > >> > >> > just as easily be ("+) or any other 0 0 0 verb. > >> > >> > > >> > >> > 2. Is there any difference between (bind) and (@:)? They look to me > >> > >> > like they would be identical. > >> > >> > > >> > >> > Thanks, > >> > >> > Johann > >> > >> > > >> > >> > On Thu, Sep 25, 2014 at 3:10 PM, Raul Miller < > >> <mailto:rauldmil...@gmail.com> rauldmil...@gmail.com> > >> > >> > wrote: > >> > >> > > That is very close to what I came up with, for the case where we > >> > >> > > want > >> > >> > only > >> > >> > > a single value from our result: > >> > >> > > > >> > >> > > d6=:1 + ? bind 6 > >> > >> > > repd6=: [:+/(,d6)^:(6={:)@d6 > >> > >> > > > >> > >> > > Here's a variation on Roger Hui's approach, for the case where we > >> > >> > > want N values from our result: > >> > >> > > > >> > >> > > d6s=: 1 + [: ? #&6 > >> > >> > > bulk=:{.#&0(],~(+/;.1~1:}:@,0~:6&|)@(],d6s@[))^:( > >> <mailto:0=6&;|@%7b:@%7b.)%5e:_~> 0=6&|@{:@{.)^:_~] > >> > >> > > > >> > >> > > Example use: > >> > >> > > bulk 20 > >> > >> > > 5 5 5 4 3 3 2 3 3 9 1 4 16 3 3 1 3 17 3 4 > >> > >> > > > >> > >> > > This would probably be much clearer if implemented explicitly rather > >> > >> > > than tacitly, and probably would be more efficient also. So: > >> > >> > > > >> > >> > > bulkd6s=:3 :0 > >> > >> > > r=. i. 0 > >> > >> > > while. y >: #r do. > >> > >> > > r=. r, d6s y > >> > >> > > mask=. }: 1, 0~:6|r > >> > >> > > r=. mask +/;.1 r > >> > >> > > end. > >> > >> > > y{.r > >> > >> > > ) > >> > >> > > > >> > >> > > But statistically speaking, this is still not as efficient as it > >> > >> > > could > >> > >> > be. > >> > >> > > I think we'd do better with: > >> > >> > > > >> > >> > > bulkd6=:3 :0 > >> > >> > > r=. i. 0 > >> > >> > > while. y >: #r do. > >> > >> > > r=. r, d6s 2*y > >> > >> > > mask=. }: 1, 0~:6|r > >> > >> > > r=. mask +/;.1 r > >> > >> > > end. > >> > >> > > y{.r > >> > >> > > ) > >> > >> > > > >> > >> > > Do you see why this tends to be more efficient? > >> > >> > > > >> > >> > > Thanks, > >> > >> > > > >> > >> > > -- > >> > >> > > Raul > >> > >> > > > >> > >> > > > >> > >> > > On Thu, Sep 25, 2014 at 11:50 AM, 'Pascal Jasmin' via Programming < > >> > >> > > <mailto:programm...@jsoftware.com> programm...@jsoftware.com> > wrote: > >> > >> > > > >> > >> > >> this works > >> > >> > >> > >> > >> > >> (, >:@?@6:)^:((0=#) +. 6={:)^:_ i.0 > >> > >> > >> > >> > >> > >> ([: +/ (, >:@?@6:)^:((0=#) +. 6={:)^:_) i.0 > >> > >> > >> 11 > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> > >> ----- Original Message ----- > >> > >> > >> From: Johann Hibschman < <mailto:jhibsch...@gmail.com> > >> jhibsch...@gmail.com> > >> > >> > >> To: Programming forum < <mailto:programm...@jsoftware.com> > >> programm...@jsoftware.com> > >> > >> > >> Cc: > >> > >> > >> Sent: Thursday, September 25, 2014 9:06 AM > >> > >> > >> Subject: [Jprogramming] Repeated rolling dice > >> > >> > >> > >> > >> > >> Hi all, > >> > >> > >> > >> > >> > >> For fun, I've been running some statistics for a game with an > >> > >> > >> unusual rule for rolling dice: if a 6 is rolled, roll again and add > >> > >> > >> the result, repeating on any subsequent 6s. I wanted to implement > >> > >> > >> this in J, collecting all the individual rolls (rather than just > >> > >> > >> the sum.) > >> > >> > >> > >> > >> > >> It seems like there should be a more clever and elegant way to do > >> > >> > >> this, but this is what I have: > >> > >> > >> > >> > >> > >> NB. Simple roll. > >> > >> > >> roll0 =: >:@? > >> > >> > >> > >> > >> > >> NB. This seems to work, but it's not very clever. > >> > >> > >> roll =: 3 : 0 > >> > >> > >> r =. >:?y > >> > >> > >> if. r=y do. r=. r,(roll y) end. > >> > >> > >> r > >> > >> > >> ) > >> > >> > >> > >> > >> > >> NB. Attempt at iterating via power. Fails because repeats NB. > >> > >> > >> signal termination. > >> > >> > >> roll0^:(6&=)^:(<_) 6 > >> > >> > >> > >> > >> > >> NB. Attempt at iterating via agenda. Not even close yet. > >> > >> > >> NB. ]`(]+$:) @. (=&6) NB. where to stick in the roll? > >> > >> > >> > >> > >> > >> This gives what I expect: > >> > >> > >> > >> > >> > >> roll"0 ] 10#6 > >> > >> > >> 6 1 0 > >> > >> > >> 3 0 0 > >> > >> > >> 3 0 0 > >> > >> > >> 2 0 0 > >> > >> > >> 5 0 0 > >> > >> > >> 2 0 0 > >> > >> > >> 6 6 2 > >> > >> > >> 2 0 0 > >> > >> > >> 1 0 0 > >> > >> > >> 6 3 0 > >> > >> > >> > >> > >> > >> But is there a better way to do this? Also, are there any known > >> > >> > >> issues with the RNG? I've not gathered enough statistics to prove > >> > >> > >> it, but the results look clumpier (more identical values in a row) > >> than > >> I expect. > >> > >> > >> Now, I know that's a common cognitive bias, so it may just be me, > >> > >> > >> but is there a discussion of the quality of the RNG somewhere? > >> > >> > >> > >> > >> > >> Thanks, > >> > >> > >> Johann > >> > >> > >> ------------------------------------------------------------------- > >> > >> > >> --- For information about J forums see > >> > >> > >> <http://www.jsoftware.com/forums.htm> > >> http://www.jsoftware.com/forums.htm > >> > >> > >> > >> > >> > >> ------------------------------------------------------------------- > >> > >> > >> --- For information about J forums see > >> > >> > >> <http://www.jsoftware.com/forums.htm> > >> http://www.jsoftware.com/forums.htm > >> > >> > >> > >> > >> > > -------------------------------------------------------------------- > >> > >> > > -- For information about J forums see > >> > >> > > <http://www.jsoftware.com/forums.htm> > >> http://www.jsoftware.com/forums.htm > >> > >> > ---------------------------------------------------------------------- > >> > >> > For information about J forums see < > >> http://www.jsoftware.com/forums.htm> > >> http://www.jsoftware.com/forums.htm > >> > >> > > >> > >> ---------------------------------------------------------------------- > >> > >> For information about J forums see < > http://www.jsoftware.com/forums.htm> > >> http://www.jsoftware.com/forums.htm > >> > >> ---------------------------------------------------------------------- > >> For information about J forums see http://www.jsoftware.com/forums.htm > > > > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
