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

(0 0 1 1,: 0 0 1 0) -: >/\ 0 0 1 1 ,: 0 1 0 1
(20$1 0) -: >/\20$1
(20$0)   -: >/\20$0

gt=. 4 : 'x>y'

(>/\"1 -: gt/\"1) #:i.16
(>/\"1 -: gt/\"1) #:i.32

(>/\   -: gt/\  ) x=.0<?    13$4
(>/\   -: gt/\  ) x=.0<?7   13$4
(>/\"1 -: gt/\"1) x
(>/\   -: gt/\  ) x=.0<?3 5 13$4
(>/\"1 -: gt/\"1) x
(>/\"2 -: gt/\"2) x

(>/\   -: gt/\  ) x=.0<?    16$4
(>/\   -: gt/\  ) x=.0<?8   16$4
(>/\"1 -: gt/\"1) x
(>/\   -: gt/\  ) x=.0<?2 4 16$4
(>/\"1 -: gt/\"1) x
(>/\"2 -: gt/\"2) x

(,'j')    -: >/\'j'
(,<'ace') -: >/\<'ace'

'domain error' -: >/\ etx 'deipnosophist'
'domain error' -: >/\ etx ;:'peace in our time'

4!:55 ;:'gt x'