Mercurial > repos > rhope
view functional.rhope @ 79:80d8c9248f85
Began work on File
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 10 Jul 2010 18:02:04 -0400 |
parents | 004f0fc8941f |
children | 6d41b71f1b77 |
line wrap: on
line source
_Fold[list,index,current,worker:out] { newval <- [worker]Call[current, [list]Index[index], index] [list]Next[index] { out <- _Fold[list, ~, newval, worker] }{ out <- Val[newval] } } Fold[worker,start,list:out] { [list]First { out <- _Fold[list, ~, start, worker] }{ out <- start } }