view test/gsco1.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. s: ------------------------------------------------------------------

0 s: 11
data=: 0 s: 10

a=:   ;:'A AAPL AMAT AMD AMZN ATT BA CRA CSCO DELL F GE GM HWP IBM INTC'
a=: a,;:'JDSU LLY LU MOT MSFT NOK NT PFE PG QCOM RMBS T XRX YHOO'
b=: ;:'NY SF LDN TOK HK FF TOR'
c=: ;:'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec'
d=: <;._1 ' 00 01 02 03 04 05 06 07 08 09'
e=: ;:'open high low close'

t=: }.@;&.>{' ',&.>&.>a;b;c;d;<e

q=: ":&.>?100$1e9

1 [ ":&.>t
1 [ ":&.>q
d=:p=:s=: 911
b0=: 911
b1=: 911
s0=: 7!:3 ''
s1=: 7!:3 ''

s0=: 7!:3 ''
b0=: 7!:0 ''

s=: s: t
t -: 5 s: s
0 s: 11

d=: 0 s: 10
(3!:1 d) 1!:2 <'foo.x'

p=: s: q
q -: 5 s: p
0 s: 11

d -: 3!:2 (1!:1) <'foo.x'
10 s: d
0 s: 11
d -: 0 s: 10
t -: 5 s: s

1!:55 <'foo.x'

10 s: data
0 s: 11

d=:p=:s=: 911
s1=: 7!:3 ''
b1=: 7!:0 ''

b0 -: b1
NB. IF64 +. s0 -: s1


4!:55 ;:'a b b0 b1 c d data e p q s s0 s1 t'