Mercurial > hg > jgplsrc

view test/g012i.ijs @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 ---------------------------------------------------------------

1 1 0 1 -: <:/ 0 0 1 1 ,: 0 1 0 1

le=: 4 : 'x<:y'

(<:/"1 -: le/"1) x=.?3 5 17$2
(<:/"2 -: le/"2) x
(<:/"3 -: le/"3) x

(<:/"1 -: le/"1) x=.?3 5 32$2
(<:/"2 -: le/"2) x
(<:/"3 -: le/"3) x

(<:/"1 -: le/"1) x=.?3 8 32$2
(<:/"2 -: le/"2) x
(<:/"3 -: le/"3) x

f=: 3 : '(<:/ -: le/) 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

4!:55 ;:'f le x'