Mercurial > repos > rhope
diff testlist.rhope @ 76:004f0fc8941f
Fix list implementation
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Wed, 07 Jul 2010 00:36:59 -0400 |
| parents | 0083b2f7b3c7 |
| children |
line wrap: on
line diff
--- a/testlist.rhope Tue Jul 06 07:52:59 2010 -0400 +++ b/testlist.rhope Wed Jul 07 00:36:59 2010 -0400 @@ -10,20 +10,12 @@ Make List Step[list, cur index, curval, num, step:out] { - Print["Make List Step"] - { Print[cur index] - { Print[curval] - { If[[curval]=[num]] { out <- list } { next <- [list]Set[cur index, curval] - Print[[next]Length] - { out <- Make List Step[next, [cur index]+[step], [curval]+[1], num, step] - } } - }}} } Sum[list,index,cur:out]