Newsgroups: comp.lang.apl
Path: watmath!watserv2.uwaterloo.ca!torn!howland.reston.ans.net!gatech!purdue!mentor.cc.purdue.edu!mentor!weg
From: weg@mace.cc.purdue.edu (Eythan Weg)
Subject: Re: APL2 programming contest: The results
In-Reply-To: weg@mace.cc.purdue.edu's message of Thu, 20 May 1993 15:20:13 GMT
Message-ID: <WEG.93May20114718@mace.cc.purdue.edu>
Sender: news@mentor.cc.purdue.edu (USENET News)
Organization: Purdue University
References: <Berni.6.0@nw42.wiwi.uni-bielefeld.de> <WEG.93May20102013@mace.cc.purdue.edu>
Date: Thu, 20 May 1993 16:47:18 GMT
Lines: 17

In article <WEG.93May20102013@mace.cc.purdue.edu> 
I gave this program to perform 2 dimensional contingency table

   +---------------------------------------------------------------------+-++
   |E=. +/@:(y.&(-:"1))                                                  | ||
   |op=.  E@([,])"0                                                      | ||
   |(by=.' '&;@,.@[,.])[ over=.({. ; }. ) @ ": @ ,                       | ||
   |( {.@] by }.@] over op//)  (/:~)&~."1& |: y.                         | ||
   +---------------------------------------------------------------------+-++


I was already told of a bug.  One has to change the last line to
	( >&{. by >&{: over >@{.op/ >@{:)  <&(/:~)&~."1& |: y.

Sorry.  That what's happens in a hurry. After this I can't vouch for
this anymore.
Eythan
