Since (rbb <:y) -: #;._1 rbb y one has rbb1=: 3 : 0 M. if. y=1 do. (,#;._1)y else. (,#;._1)rbb1 <:y end. )
rbb1 6 1 0 1 1 0 1 0 1 1 0 1 1 0 1 0 1 1 0 1 0 1 R.E. Boss > -----Oorspronkelijk bericht----- > Van: [EMAIL PROTECTED] [mailto:programming- > [EMAIL PROTECTED] Namens R.E. Boss > Verzonden: maandag 12 november 2007 12:38 > Aan: 'Programming forum' > Onderwerp: RE: [Jprogramming] How to behead included? > > rbb 7 > 1 0 1 1 0 1 0 1 1 0 1 1 0 1 0 1 1 0 1 0 1 > > #;._1 rbb 7 > 1 0 1 1 0 1 0 1 1 0 1 1 0 > > rbb 6 > 1 0 1 1 0 1 0 1 1 0 1 1 0 > > (<: (-:#;._1)&rbb ])20 > 1 > > > R.E. Boss > > > > -----Oorspronkelijk bericht----- > > Van: [EMAIL PROTECTED] [mailto:programming- > > [EMAIL PROTECTED] Namens R.E. Boss > > Verzonden: zondag 11 november 2007 1:02 > > Aan: 'Programming forum' > > Onderwerp: RE: [Jprogramming] How to behead included? > > > > Correction: > > > > et 'rbb 30' NB. et=: 6!:2 First call of rbb > > 0.019054191 > > > > > > R.E. Boss > > > > > > > -----Oorspronkelijk bericht----- > > > Van: [EMAIL PROTECTED] [mailto:programming- > > > [EMAIL PROTECTED] Namens R.E. Boss > > > Verzonden: zondag 11 november 2007 0:48 > > > Aan: 'Programming forum' > > > Onderwerp: RE: [Jprogramming] How to behead included? > > > > > > rbb=: 3 : 0 M. > > > if. y<2 do. y else. > > > (rbb <:y),rbb y-2 > > > end. > > > ) > > > > > > (rbb -: zUr917)30 > > > 1 > > > > > > ts'zUr917 30' > > > 5.0267478 1.2616301e8 > > > ts'rbb 30' NB. First call of rbb > > > 2.1931253e_5 19571136 > > > ts'rbb 30' NB. Second call of rbb > > > 9.1171416e_6 832 > > > > > > > > > R.E. Boss > > > > > > > > > > -----Oorspronkelijk bericht----- > > > > Van: [EMAIL PROTECTED] [mailto:programming- > > > > [EMAIL PROTECTED] Namens Dan Bron > > > > Verzonden: zaterdag 10 november 2007 17:14 > > > > Aan: [email protected] > > > > Onderwerp: Re: [Jprogramming] How to behead included? > > > > > > > > > > > > Arie Groeneveld improved: > > > > > zUr917=: ([:;<@#:@>:)^:(]`0:) > > > > > > > > Damn, you beat me to it! So now we see that this is completely > > > equivalent > > > > to your recurrence 1relation, even the first two elements: > > > > > > > > rabS=:(([:$:_1+]),[:$:_2+])^:(1<]) > > > > > > > > #.\ rabS 5 > > > > 1 2 5 11 22 45 90 181 > > > > > > > > #.\ zUr917 5 > > > > 1 2 5 11 22 45 90 181 > > > > > > > > > > > > BTW I stole the idea for this verb and its friend from the OEIS: > > > > > > > > http://www.research.att.com/~njas/sequences/A005614 > > > > > > > > I'm sure other mechanisms can be found there. Actually, I'd like to > > see > > > > all > > > > the approaches you've already collected; have you considered > putting > > up > > > > an > > > > Essay or a Puzzle on the Wiki? > > > > > > > > -Dan > > > > -- > > > > View this message in context: http://www.nabble.com/How-to-behead- > > > > included--tf4778131s24193.html#a13683397 > > > > Sent from the J Programming mailing list archive at Nabble.com. > > > > > > > > -------------------------------------------------------------------- > -- > > > > 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
