OK, works fine now.
R.E. Boss -----Oorspronkelijk bericht----- Van: [email protected] [mailto:[email protected]] Namens Viktor Cerovski Verzonden: zaterdag 19 december 2009 18:40 Aan: [email protected] Onderwerp: Re: [Jprogramming] Tacit exercise R.E. Boss wrote: > > Viktor Cerovski wrote >> >> >> mapply4=: 4 : 0 >> ri=.0 >> while. ri<#x do. >> 'p s t'=.ri{x >> 'y ri'=.((s , (#p) }. ])&.(j&|.)@>@{. ; t*_:)^:((#y)~:j=.i.&1 p E. y) >> y;>:ri >> end. >> y >> ) > > > R1 mapply4 T1 > |domain error: mapply4 > | 'p s t'=.ri {x > > NB. for R1 and T1 see > http://jsoftware.com/pipermail/programming/2009-December/017323.html > > > R.E. Boss > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > > I've used tests prepared by Thomas. Here is the copy of a session: $ ~/j64-602/bin/jconsole do=.". NB. RULE=. PAT;SUB;TERMINAL RULES1=: do;._2 ] 0 : 0 'A';'apple';0 'B';'bag';0 'S';'shop';0 'T';'the';0 'the shop';'my brother';0 'a never used';'terminating rule';1 ) TEST1=: 1 : 0 'I bought a bag of apples from my brother.' -: RULES1 u 'I bought a B of As from T S.' ) RULES1 +------------+----------------+-+ |A |apple |0| +------------+----------------+-+ |B |bag |0| +------------+----------------+-+ |S |shop |0| +------------+----------------+-+ |T |the |0| +------------+----------------+-+ |the shop |my brother |0| +------------+----------------+-+ |a never used|terminating rule|1| +------------+----------------+-+ mapply4=: 4 : 0 ri=.0 while. ri<#x do. 'p s t'=.ri{x 'y ri'=.((s , (#p) }. ])&.(j&|.)@>@{. ; t*_:)^:((#y)~:j=.i.&1 p E. y) y;>:ri end. y ) mapply4 TEST1 1 RULES1 mapply4 'I bought a B of As from T S.' I bought a bag of apples from my brother. -- View this message in context: http://old.nabble.com/Tacit-exercise-tp26812445s24193p26857035.html Sent from the J Programming mailing list archive at Nabble.com. ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
