Newsgroups: comp.lang.apl
Path: watmath!watserv2.uwaterloo.ca!torn!howland.reston.ans.net!zaphod.mps.ohio-state.edu!sdd.hp.com!decwrl!decwrl!csus.edu!sfsuvax1.sfsu.edu!vpcsc4
From: vpcsc4@sfsuvax1.sfsu.edu (Emmett McLean)
Subject: Re: Another triadic function def'n question
Message-ID: <1993Apr30.043756.17591@csus.edu>
Sender: news@csus.edu
Organization: San Francisco State University
References: <qmdbms.736141201@gsusgi1.gsu.edu>
Date: Fri, 30 Apr 1993 04:37:56 GMT
Lines: 33



NB. Lets see, this is tt (using t ) :
   t =. 'x. + y. * i. <.y.%~x. + 50 ':11
   3 t 7
3 10 17 24 31 38 45

NB. And for displays :
   9!:3(5)

NB. This is the tacit translation of t :
   t
   [ + ] * i.@(<.@(] %~ +&50@[))

NB. Make an adverb r which will kind of act like t :
   r =. '[ + ] * i.@(<.@(] %~ +&(x.)@[))':21

NB. Check out the interpretation of r with the verb 50"_ :
    (50"_) r 
[ + ] * i.@(<.@(] %~ +&(50"_)@[))

NB. Looks OK. But we don't have to use (50"_) we can just use 50 :
   (3) (50) r 7
3 10 17 24 31 38 45

NB. Try another input :
   (3) (40) r 8
3 11 19 27 35

NB. Is this what is expected ?

<'Emmett'
   
