[Jprogramming] Recurring holiday amusement

[km]

Linda, for Raul's e and recur, try

1&e recur 6 [ ''

and 

+/ 1&e recur 10 [ ''

comparing the latter with

^ 1

Kip

Sent from my iPad


On Dec 26, 2012, at 4:47 AM, "Linda Alvord" <lindaalvord at verizon.net> wrote:

> Kip, Here are some samples:
> 
> Not quite what you wanted from me:
> 
>   fibla=:[: +/\ |.
>   recur=:^:
>   n=: 13 :'0{"1 fibla recur (i.y) ] 1 1'
>   n 12
> 1 1 2 3 5 8 13 21 34 55 89 144
> 
> 
> Raul's and my rendition of his version:
>   fib=:,+/@{.~&_2
>   fib2=:,_2 ([: +/ {.)]
> 
> 
>   fib recur (i.6)]1 1
> 1 1 0 0 0 0  0
> 1 1 2 0 0 0  0
> 1 1 2 3 0 0  0
> 1 1 2 3 5 0  0
> 1 1 2 3 5 8  0
> 1 1 2 3 5 8 13
>   fib2 recur (i.6)]1 1
> 1 1 0 0 0 0  0
> 1 1 2 0 0 0  0
> 1 1 2 3 0 0  0
> 1 1 2 3 5 0  0
> 1 1 2 3 5 8  0
> 1 1 2 3 5 8 13
> 
> 
> I'm not sure about Raul's arith:
>   arith=: ] , +&{:
>   arith recur (i.6)]1 1
> 1 1 0 0 0 0 0
> 1 1 1 0 0 0 0
> 1 1 1 1 0 0 0
> 1 1 1 1 1 0 0
> 1 1 1 1 1 1 0
> 1 1 1 1 1 1 1
> 
> Raul's  e  takes lots of space and I can't seem to change the precision for
> 6 to 3 or 4 in j7.
> 
>   e recur (i.3)] 1 1
> 1 1   0   0         0         0          0          0
> 1 1 0.5 0.5         0         0          0          0
> 1 1 0.5 0.5 0.0416667 0.0416667 0.00260417 0.00260417
>   e=: ] , [ (^t.@] * ^) #@] 
> 
> Linda
> 
> 
> -----Original Message-----
> From: programming-bounces at forums.jsoftware.com
> [mailto:programming-bounces at forums.jsoftware.com] On Behalf Of km
> Sent: Monday, December 24, 2012 5:58 PM
> To: programming at jsoftware.com
> Subject: Re: [Jprogramming] Recurring holiday amusement
> 
> OK, conjunction
> 
>   recur =: 2 : '(, u)^:n'
> 
> and you can still write the verbs.  As you can see, the result of recur
> applies u to the current list and appends that result to the current list,
> repeating this operation n times.  Just about any list can be produced by
> designing an appropriate u .  Your assignment is to design verbs fib, arith,
> and e .  Kip Murray
> 
> Sent from my iPad
> 
> 
> On Dec 23, 2012, at 9:00 PM, km <km at math.uh.edu> wrote:
> 
>> Write a conjunction recur and verbs fib, arith, and e that do the
> following
>> 
>>   fib recur 5 [ 1 1  NB. five additional terms of Fibonacci sequence
>> 1 1 2 3 5 8 13
>>   0.5&arith recur 5 [ 3
>> 3 3.5 4 4.5 5 5.5
>>   1&e recur 5 [ ''
>> 1 1 0.5 0.166667 0.0416667
>>   +/ 1&e recur 10 [ ''
>> 2.71828
>>   +/ _1&e recur 10 [ ''
>> 0.367879
>>   ^ 1 _1
>> 2.71828 0.367879
>> 
>> Conjunction recur helps create "recursive" lists.
>> 
>> Kip Murray
>> 
>> Sent from my iPad
>> ----------------------------------------------------------------------
>> 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