Cyc =: i. |."(0 1) i.
f=: (|:@:(] , 0&{),0&{)@: Cyc
> From: thekipmur...@gmail.com
> Date: Mon, 31 Aug 2015 07:35:07 +0000
> To: programm...@jsoftware.com
> Subject: [Jprogramming] Pattern Puzzle
>
> This is a resend of a message I tried to send earlier. --Kip Murray
>
> ---------- Forwarded message ---------
> From: Kip Murray <thekipmur...@gmail.com>
> Date: Sun, Aug 30, 2015 at 8:27 PM
> Subject: Pattern Puzzle
> To: programm...@jsoftware.com <programm...@jsoftware.com>
>
>
> 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
