On 4/15/06, R.E. Boss <[EMAIL PROTECTED]> wrote:
> (-@|[EMAIL PROTECTED]@[EMAIL PROTECTED] |."0 1 ]) ":&> (, [:(1, 1,~ 2~:/\
> ])&.> {:)^:10 < 1
> 1
> 1 1
> 1 0 1
> 1 1 1 1
> 1 0 0 0 1
> 1 1 0 0 1 1
> 1 0 1 0 1 0 1
> 1 1 1 1 1 1 1 1
> 1 0 0 0 0 0 0 0 1
> 1 1 0 0 0 0 0 0 1 1
> 1 0 1 0 0 0 0 0 1 0 1
>
> Or
> xor=:(, [:(1, 1,~ 2~:/\ ])&.> {:)
> frmt=:(-@|[EMAIL PROTECTED]@[EMAIL PROTECTED] |."0 1 ]) ":&>
> frmt xor ^:10 [1
>
> R.E. Boss
it didn't work on the most recent J engine. The following works:
frmt=:(-@|[EMAIL PROTECTED]@[EMAIL PROTECTED] |."0 1 ])@:( ":&>)
frmt xor^:10 < 1
1
1 1
1 0 1
1 1 1 1
1 0 0 0 1
1 1 0 0 1 1
1 0 1 0 1 0 1
1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 0 1
1 1 0 0 0 0 0 0 1 1
1 0 1 0 0 0 0 0 1 0 1
Thanks.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
