view test/g010p.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 1 0 0) -: </\ 0 0 1 1 ,: 0 1 0 1
(20{.1) -: </\20$1
(20$ 0) -: </\20$0

lt=. 4 : 'x<y'

(</\"1 -: lt/\"1) #:i.16
(</\"1 -: lt/\"1) #:i.32

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

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

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

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

4!:55 ;:'lt x'