Mercurial > hg > jgplsrc

annotate test/gscou.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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
1 NB. s: with unicode -----------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 c=: ' a b cd chthonic boustrophedonic octothorpe'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 t=: s: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 s=: s: u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 s -: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 s -:&(6&s:) t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 (1 s: s) -: ; '`'&, &.><;._1 c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 (2 s: s) -: ; ,&(0{a.)&.><;._1 c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 (3 s: s) -: (<;._1 c) ,&> ((>./ - ])#;.1 c)$&.>0{a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 (4 s: s) -: (<;._1 c) ,&> ((>./ - ])#;.1 c)$&.>' '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 (5 s: s) -: <;._1 c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 d=: ' triskaidekaphobia paronomasia tasis litotes metonymic'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 t=: s,s: d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 (1 s: t) -: ; '`'&, &.><;._1 c,d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 (2 s: t) -: ; ,&(0{a.)&.><;._1 c,d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 (3 s: t) -: (<;._1 c,d) ,&> ((>./ - ])#;.1 c,d)$&.>0{a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 (4 s: t) -: (<;._1 c,d) ,&> ((>./ - ])#;.1 c,d)$&.>' '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 (5 s: t) -: <;._1 c,d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 i=: ?~#t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 (1 s: i{t) -: ; i{'`'&, &.><;._1 c,d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 (2 s: i{t) -: ; i{,&(0{a.)&.><;._1 c,d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 (3 s: i{t) -: i{(<;._1 c,d) ,&> ((>./ - ])#;.1 c,d)$&.>0{a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 (4 s: i{t) -: i{(<;._1 c,d) ,&> ((>./ - ])#;.1 c,d)$&.>' '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 (5 s: i{t) -: i{ <;._1 c,d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 10 s: 0 s: 10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 c=: ' zeugma deesis acyron meiosis bdelygma chiasmus'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 s=: s: u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 t=: s: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 s -: t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 s -:&(6&s:) t
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 (1 s: s) -: ; '`'&, &.><;._1 c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 (2 s: s) -: ; ,&(0{a.)&.><;._1 c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 (3 s: s) -: (<;._1 c) ,&> ((>./ - ])#;.1 c)$&.>0{a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 (4 s: s) -: (<;._1 c) ,&> ((>./ - ])#;.1 c)$&.>' '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 (5 s: s) -: <;._1 c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 s -: s: ];._1 u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 s -: s: <;._1 u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 s -: _1 s: u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 s -: _2 s: 1|.u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 s -: _3 s: (<;._1 u: c) ,&> ((>./ - ])#;._1 c)$&.>u: 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 s -: _4 s: ];._1 u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 s -: _5 s: <;._1 u: c
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 1 [ s: <u: 'force even alignment ',":?1e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 1 [ s: <u: 'force padding ',":?1e9
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 0 s: 11
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 4!:55 ;:'c d i s t u'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63