Mercurial > repos > rhope
diff string.rhope @ 87:3c4325e6298f
Add First@Dictionary (need to find mem man bug)
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 30 Jul 2010 01:48:59 -0400 |
parents | 27bb051d631c |
children | c25d75c2440b |
line wrap: on
line diff
--- a/string.rhope Tue Jul 27 23:33:31 2010 -0400 +++ b/string.rhope Fri Jul 30 01:48:59 2010 -0400 @@ -559,3 +559,13 @@ { out <- UInt32[~] } } +_From Dict String[arr,el:out] +{ + out <- [arr]Append[Trunc UInt8[el]] +} + +From Dict Key@String[string,data:out] +{ + out <- String[Fold[_From Dict String[?], Array[], data]] +} +