bigdeal=: 4 : 0
t=. 0 $ v=. y $~ <.1.11*x
while. x > #t do. t=. ~. roll v end.
x {. t
)
rix =: i...@[ ([ ,. [ + roll@:-~) ]
deal1=: [ {. <@~."1@|....@rix C. i...@-@]
deal =: deal1 ` bigdeal @. (< 0.01&*)
----- Original Message -----
From: Brian Schott <[email protected]>
Date: Tuesday, February 23, 2010 9:50
Subject: Re: [Jgeneral] GB_Flip RNG seed
To: General forum <[email protected]>
> Does tick require an x: such as this?
>
> tick =: [ <....@%~ (* 3 :
> 'qrl=:(<:2^31)|(7^5)* qrl')@]
> tick =: [ <....@%~ (* 3 :
> 'qrl=:(<:2^31)|(7^5)*&x: qrl')@]
>
> More importantly, do you have a dyadic version of roll?
>
> > If you are pining for the old linear conguenial generator,
> > here it is:
> >
> > tick =: [ <....@%~ (* 3 : 'qrl=:(<:2^31)|(7^5)*qrl')@]
> > roll =: (<:2^31)&tick"0
> > qrl =: 16807
> >
>
>
> Thank you.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
