Mercurial > repos > rhope
view teststring.rhope @ 169:fd06fb07762a
Basic inlining of arithmetic and comparison operations on integer types
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 08 May 2011 01:37:44 -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"] } }}} }}}} }