view test/g100s.ijs @ 0:e0bbaa717f41 draft default tip

lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
line wrap: on
line source

NB. +/\. B --------------------------------------------------------------

(20$1) -: +/\._20{.1
(>:i.-20) -: +/\.20$1

plus=: 4 : 'x+y'

f=: 3 : '(+/\. -: plus/\.) y ?@$ 2'
,f"1 x=.7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=.7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x


NB. +/\. I --------------------------------------------------------------

(2!>:i.20) -: +/\.&.|. i.20

plus=: 4 : 'x+y'

(+/\. -: plus/\.) x=.1 2 3 1e9 2e9
(+/\. -: plus/\.) |.x

(+/\.   -: plus/\.  ) x=._1e4+?    23$2e4
(+/\.   -: plus/\.  ) x=._1e4+?4   23$2e4
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=._1e4+?7 5 23$2e4
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x

(+/\.   -: plus/\.  ) x=._1e9+?    23$2e9
(+/\.   -: plus/\.  ) x=._1e9+?4   23$2e9
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=._1e9+?7 5 23$2e9
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x


NB. +/\. D --------------------------------------------------------------

(2!>:i.20) -: +/\.&.|. [&.o. i.20

plus=: 4 : 'x+y'

(+/\.   -: plus/\.  ) x=.(2^_8)*_1e4+?    23$2e4
(+/\.   -: plus/\.  ) x=.(2^_8)*_1e4+?4   23$2e4
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=.(2^_8)*_1e4+?7 5 23$2e4
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x


NB. +/\. Z --------------------------------------------------------------

(2!>:i.20) -: +/\.&.|. [&.j. i.20

plus=: 4 : 'x+y'

(+/\.   -: plus/\.  ) x=.j./(2^_8)*_1e4+?2     23$2e4
(+/\.   -: plus/\.  ) x=.j./(2^_8)*_1e4+?2 4   23$2e4
(+/\."1 -: plus/\."1) x
(+/\.   -: plus/\.  ) x=.j./(2^_8)*_1e4+?2 7 5 23$2e4
(+/\."1 -: plus/\."1) x
(+/\."2 -: plus/\."2) x

'domain error' -: +/\. etx 'deipnosophist'
'domain error' -: +/\. etx ;:'sui generis'


4!:55 ;:'f plus x'