From http://www.jsoftware.com/help/dictionary/d202n.htm we learn x u^:( v1`v2)y ↔ x u^:([`v1`v2) y ↔ (x [ y)u^:(x v1 y) (x v2 y) so P ([:; {~)^:(]`(S"_)) 20 ↔ P ([:; {~)^: 20 S
You do not need to understand the internal representation of (]`(S"_)) to apply the above rule(s). R.E. Boss (Add your info to http://www.jsoftware.com/jwiki/Community/Demographics ) > -----Oorspronkelijk bericht----- > Van: [email protected] > [mailto:[email protected]] Namens Brian Schott > Verzonden: zaterdag 27 juli 2013 4:57 > Aan: Programming forum > Onderwerp: Re: [Jprogramming] golden strings > > In your Vector article you have the following code that I cannot follow. > > > > P ([:; {~)^:(]`(S"_)) 20 > > I have gotten this far, but I don't really know how to parse the code. > (]`(S"_)) > +-+-----------------+ > |]|+-+-------------+| > | ||"|+-----+-----+|| > | || ||+-+-+|+-+-+||| > | || |||0|0|||0|_|||| > | || ||+-+-+|+-+-+||| > | || |+-----+-----+|| > | |+-+-------------+| > +-+-----------------+ > > Can somebody clarify? > > > On Wed, Jul 24, 2013 at 9:21 AM, R.E. Boss <[email protected]> wrote: > > > Another way is using quadratic squaring > > > > #;(;@:{L:0 1)~^:(5) 1;1 0 > > 9227465 > > > > which is more efficient: > > > > #;(;;{.)^:(42) 1;0 NB. Miller > > 1134903170 > > > > ts'#;(;;{.)^:(42) 1;0' > > 1.2000234 3.7580992e9 > > > > versus > > > > #; ([ ;@:{L:0 1~ [:,L:0 ])/(;@:{L:0 1)~^:(5 3 1) 1;1 0 NB. Boss > > 1134903170 > > > > ts'#; ([ ;@:{L:0 1~ [:,L:0 ])/(;@:{L:0 1)~^:(5 3 1) 1;1 0' > > 0.88478818 3.770689e9 > > > > > > In http://archive.vector.org.uk/art10501080 the rabbit sequence is used > > to describe L-systems in J. > > > > > > R.E. Boss > > > > > > (Add your info to http://www.jsoftware.com/jwiki/Community/Demographics ) > > > > > > > -----Oorspronkelijk bericht----- > > > Van: [email protected] [mailto: > > [email protected]] Namens Raul Miller > > > Verzonden: dinsdag 23 juli 2013 18:18 > > > Aan: Programming forum > > > Onderwerp: [Jprogramming] golden strings > > > > > > http://www.johndcook.com/blog/2013/07/23/golden-strings/ > > > > > > 0.5#.|.0,;(;;{.)^:(6) 1;0 > > > 0.709803 > > > > > > :) > > > > > > -- > > > Raul > > > ---------------------------------------------------------------------- > > > For information about J forums see http://www.jsoftware.com/forums.htm > > > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > > > > > > -- > (B=) <-----my sig > Brian Schott > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
