Mercurial > repos > rhope

comparison teststring.rhope @ 78:4d5ea487f810

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Working String implementation and some basic (but nowhere near exhaustive) tests
author Mike Pavone <pavone@retrodev.com>
date Thu, 08 Jul 2010 21:55:47 -0400
parents
children
comparison
equal deleted inserted replaced
77:a748300a4143 78:4d5ea487f810
1
2 Main[]
3 {
4 barbaz <- [right]Append["baz"]
5 ,right <- ["foobar"]Slice[3]
6 { Print[~]
7 { Print[right]
8 { Print[barbaz]
9 {
10 bar,baz <- [barbaz]Slice[3]
11 { Print[bar]
12 { Print[baz]
13 {
14 If[[bar]=[ [["b"]Append["a"]]Append["r"] ]]
15 {
16 Print["Comparison OK"]
17 {
18 ,delim,after <-["foshizzlemynizzle"]Partition["my"]
19 { Print[~]
20 { Print[delim]
21 { Print[after] }}}
22
23 }
24 }{
25 Print["Comparison failed"]
26 }
27 }}}
28 }}}}
29 }
30