User:Tom Allen/ta/AddendumT00E02

From J Wiki
Jump to navigation Jump to search


GTE0200D.jpg


NB. ... script experimental.ijs ...

cfMP=:cfAL*/cfAR


cfMPdct0=:cfAL  */cfARdc
cfMPdct1=:cfALdc*/cfAR

cfMPdc=:cfMPdct0+cfMPdct1


cfMPdcdct0=:(   ])@(cfAL    */cfARdcdc)
cfMPdcdct1=:(0|:])@(cfALdc  */cfARdc  )
cfMPdcdct2=:(   ])@(cfALdc  */cfARdc  )
cfMPdcdct3=:(   ])@(cfALdcdc*/cfAR    )

cfMPdcdc=:cfMPdcdct0+cfMPdcdct1+cfMPdcdct2+cfMPdcdct3


cfMPdcdcdct0=:(     ])@(cfAL      */cfARdcdcdc)
cfMPdcdcdct1=:(  0|:])@(cfALdc    */cfARdcdc  )
cfMPdcdcdct2=:(0 2|:])@(cfALdc    */cfARdcdc  )
cfMPdcdcdct3=:(0 1|:])@(cfALdcdc  */cfARdc    )
cfMPdcdcdct4=:(     ])@(cfALdc    */cfARdcdc  )
cfMPdcdcdct5=:(  1|:])@(cfALdcdc  */cfARdc    )
cfMPdcdcdct6=:(     ])@(cfALdcdc  */cfARdc    )
cfMPdcdcdct7=:(     ])@(cfALdcdcdc*/cfAR      )

cfMPdcdcdc=:cfMPdcdcdct0+cfMPdcdcdct1+cfMPdcdcdct2+cfMPdcdcdct3+cfMPdcdcdct4+cfMPdcdcdct5+cfMPdcdcdct6+cfMPdcdcdct7


cfMPdcdcdcdct00=:(       ])@(cfAL        */cfARdcdcdcdc)
cfMPdcdcdcdct01=:(    0|:])@(cfALdc      */cfARdcdcdc  )
cfMPdcdcdcdct02=:(  0 3|:])@(cfALdc      */cfARdcdcdc  )
cfMPdcdcdcdct03=:(  0 1|:])@(cfALdcdc    */cfARdcdc    )
cfMPdcdcdcdct10=:(0 2 3|:])@(cfALdc      */cfARdcdcdc  )
cfMPdcdcdcdct11=:(0 3 1|:])@(cfALdcdc    */cfARdcdc    )
cfMPdcdcdcdct12=:(0 1 3|:])@(cfALdcdc    */cfARdcdc    )
cfMPdcdcdcdct13=:(0 1 2|:])@(cfALdcdcdc  */cfARdc      )
cfMPdcdcdcdct20=:(       ])@(cfALdc      */cfARdcdcdc  )
cfMPdcdcdcdct21=:(    1|:])@(cfALdcdc    */cfARdcdc    )
cfMPdcdcdcdct22=:(  1 3|:])@(cfALdcdc    */cfARdcdc    )
cfMPdcdcdcdct23=:(  1 2|:])@(cfALdcdcdc  */cfARdc      )
cfMPdcdcdcdct30=:(       ])@(cfALdcdc    */cfARdcdc    )
cfMPdcdcdcdct31=:(    2|:])@(cfALdcdcdc  */cfARdc      )
cfMPdcdcdcdct32=:(       ])@(cfALdcdcdc  */cfARdc      )
cfMPdcdcdcdct33=:(       ])@(cfALdcdcdcdc*/cfAR        )

cfMPdcdcdcdct0=:cfMPdcdcdcdct00+cfMPdcdcdcdct01+cfMPdcdcdcdct02+cfMPdcdcdcdct03
cfMPdcdcdcdct1=:cfMPdcdcdcdct10+cfMPdcdcdcdct11+cfMPdcdcdcdct12+cfMPdcdcdcdct13
cfMPdcdcdcdct2=:cfMPdcdcdcdct20+cfMPdcdcdcdct21+cfMPdcdcdcdct22+cfMPdcdcdcdct23
cfMPdcdcdcdct3=:cfMPdcdcdcdct30+cfMPdcdcdcdct31+cfMPdcdcdcdct32+cfMPdcdcdcdct33

cfMPdcdcdcdc=:cfMPdcdcdcdct0+cfMPdcdcdcdct1+cfMPdcdcdcdct2+cfMPdcdcdcdct3


cfMP0=:cfMP;     _;       _;         _;           _;_"_
cfMP1=:cfMP;cfMPdc;       _;         _;           _;_"_
cfMP2=:cfMP;cfMPdc;cfMPdcdc;         _;           _;_"_
cfMP3=:cfMP;cfMPdc;cfMPdcdc;cfMPdcdcdc;           _;_"_
cfMP4=:cfMP;cfMPdc;cfMPdcdc;cfMPdcdcdc;cfMPdcdcdcdc;_"_



Download: File:LTE0200D.txt