Mercurial > repos > rhope
view teststring.rhope @ 116:60906f8803ef
Improved profiling
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 13 Oct 2010 02:51:56 -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"] } }}} }}}} }