Mercurial > hg > jgplsrc

comparison test/g230p.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
comparison
equal deleted inserted replaced
-1:000000000000 0:e0bbaa717f41
1 NB. |/\ B ---------------------------------------------------------------
2
3 (0 0 1 1,: 0 1 0 0) -: |/\ 0 0 1 1 ,: 0 1 0 1
4 (20{.1) -: |/\20$1
5 (20$ 0) -: |/\20$0
6
7 res=. 4 : 'x|y'
8
9 (|/\"1 -: res/\"1) #:i.16
10 (|/\"1 -: res/\"1) #:i.32
11
12 (|/\ -: res/\ ) x=.1=? 13$4
13 (|/\ -: res/\ ) x=.1=?7 13$4
14 (|/\"1 -: res/\"1) x
15 (|/\ -: res/\ ) x=.1=?3 5 13$4
16 (|/\"1 -: res/\"1) x
17 (|/\"2 -: res/\"2) x
18
19 (|/\ -: res/\ ) x=.1=? 16$4
20 (|/\ -: res/\ ) x=.1=?8 16$4
21 (|/\"1 -: res/\"1) x
22 (|/\ -: res/\ ) x=.1=?2 4 16$4
23 (|/\"1 -: res/\"1) x
24 (|/\"2 -: res/\"2) x
25
26 (,'j') -: |/\'j'
27 (,<'ace') -: |/\<'ace'
28
29 'domain error' -: |/\ etx 'deipnosophist'
30 'domain error' -: |/\ etx ;:'guard the glory that was Greece'
31
32 4!:55 ;:'res x'
33
34