Mercurial > repos > rhope
view teststring.rhope @ 185:4580c08fd4e8
Fix an import missed in last commit
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 27 Jul 2011 21:32:40 -0700 |
parents | 4d5ea487f810 |
children |
line wrap: on
line source
Main[] { barbaz <- [right]Append["baz"] ,right <- ["foobar"]Slice[3] { Print[~] { Print[right] { Print[barbaz] { bar,baz <- [barbaz]Slice[3] { Print[bar] { Print[baz] { If[[bar]=[ [["b"]Append["a"]]Append["r"] ]] { Print["Comparison OK"] { ,delim,after <-["foshizzlemynizzle"]Partition["my"] { Print[~] { Print[delim] { Print[after] }}} } }{ Print["Comparison failed"] } }}} }}}} }