view test/g510.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. ] --------------------------------------------------------------------

xb =: ?2 3 4$2
xa =: 'Fourscore and seven years ago'
xi =: ?9 12$100000
xd =: o.?1 2 3$100000
xj =: j.&?~2 2 3 3$1000

xb -: xb ] xb
xb -: xa ] xb
xb -: xi ] xb
xb -: xd ] xb
xb -: xj ] xb

xa -: xb ] xa
xa -: xa ] xa
xa -: xi ] xa
xa -: xd ] xa
xa -: xj ] xa

xi -: xb ] xi
xi -: xa ] xi
xi -: xi ] xi
xi -: xd ] xi
xi -: xj ] xi

xd -: xb ] xd
xd -: xa ] xd
xd -: xi ] xd
xd -: xd ] xd
xd -: xj ] xd

xj -: xb ] xj
xj -: xa ] xj
xj -: xi ] xj
xj -: xd ] xj
xj -: xj ] xj

x=: i.1e4
y=: 2e4$'boustrophedonic chuffed'

(IF64{2000 2400) > t=: 7!:2 'x]y'


NB. ]"r ------------------------------------------------------------------

dex =: 3 : ('y'; ':'; 'y')

'abc' (]" 1 -: dex" 1) ?2 3 4$100
4 5   (]"_1 -: dex"_1) ?2 3 4$100

f=: ]  ^:(2&|)
g=: 0&+^:(2&|)

(f/   -: g/  ) x=:?20$10
(f/\  -: g/\ ) x=:?20$10
(f/\. -: g/\.) x=:?20$10
(f"0  -: g"0 ) x=:?20$10
(f^:3 -: g^:3) x=:? 2$10

'length error' -: 'abc' ]"_1 etx i.2 3


4!:55 ;:'dex f g t x xa xb xd xi xj y'