Mercurial > hg > jgplsrc
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'