Or;

i. $~ 2 # >:

Linda

-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Raul Miller
Sent: Monday, August 31, 2015 2:34 PM
To: Programming forum <programm...@jsoftware.com>
Subject: Re: [Jprogramming] Pattern Puzzle

You do not actually need the inner parenthesis here

   (| i.@,~@>:)3
0 1 2 0
1 2 0 1
2 0 1 2
0 1 2 0

Though even with that change, Mike Day's approach is still more concise,
(and more efficient, in space and time):

   (i.$~2#>:) 3
0 1 2 0
1 2 0 1
2 0 1 2
0 1 2 0

   timespacex '(| i.@,~@>:)1000'
0.01132 1.67804e7
   timespacex '(i.$~2#>:) 1000'
0.001852 8.39936e6

Still, it's fun variation (and efficiency can sometimes be a misleading
issue)...

--
Raul

On Mon, Aug 31, 2015 at 2:14 PM, R.E. Boss <r.e.b...@outlook.com> wrote:
>
>    (|+/~@i.@>:)3
> 0 1 2 0
> 1 2 0 1
> 2 0 1 2
> 0 1 2 0
>
>    (| i.@(,~)@>:)3
> 0 1 2 0
> 1 2 0 1
> 2 0 1 2
> 0 1 2 0
>
>
> R.E. Boss
>
> ________________________________________
> Van: programming-boun...@forums.jsoftware.com 
> <programming-boun...@forums.jsoftware.com> namens Don Guinn 
> <dongu...@gmail.com>
> Verzonden: maandag 31 augustus 2015 15:56
> Aan: Programming forum
> Onderwerp: Re: [Jprogramming] Pattern Puzzle
>
>    pt=:(2#>:)$i.
>
> On Mon, Aug 31, 2015 at 6:52 AM, 'Pascal Jasmin' via Programming < 
> programm...@jsoftware.com> wrote:
>
>> I have
>>
>> (] ([ , ,.~) |."0 1)&i.~
>>
>>
>>
>>
>> ________________________________
>> From: Kip Murray <thekipmur...@gmail.com>
>> To: "programm...@jsoftware.com" <programm...@jsoftware.com>
>> Sent: Sunday, August 30, 2015 9:27 PM
>> Subject: [Jprogramming] Pattern Puzzle
>>
>>
>> Write a verb pt which produces the pattern shown below. --Kip Murray
>>
>>
>>    pt 3
>> 0 1 2 0
>> 1 2 0 1
>> 2 0 1 2
>> 0 1 2 0
>>    pt 4
>> 0 1 2 3 0
>> 1 2 3 0 1
>> 2 3 0 1 2
>> 3 0 1 2 3
>> 0 1 2 3 0
>> ---------------------------------------------------------------------
>> - 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

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to