Mercurial > repos > rhope
view teststring.rhope @ 125:e556416e9c91
Update compilation scripts
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 28 Oct 2010 21:07:03 -0400 |
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"] } }}} }}}} }