Mercurial > repos > rhope

comparison extendlib.rhope @ 48:a24eb366195c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed some bugs introduced in previous commit and moved definition of integer methods out of runtime and into the compiler
author Mike Pavone <pavone@retrodev.com>
date Tue, 02 Mar 2010 00:18:49 -0500
parents 6202b866d72c
children d0ce696786cc
comparison
equal deleted inserted replaced
47:6202b866d72c 48:a24eb366195c
23 Map[list,worker:out] 23 Map[list,worker:out]
24 { 24 {
25 [list]First 25 [list]First
26 { 26 {
27 out <- _Map[list, ~, worker] 27 out <- _Map[list, ~, worker]
28 }{
29 out <- list
30 }
31 }
32
33 _SMap[list,index,worker:out]
34 {
35 newval <- [
36 [worker]Do[
37 [()]Append[ [list]Index[index] ]
38 ]
39 ]Index[0]
40
41 [list]Next[index]
42 {
43 out <- _SMap[[list]Set[index, newval], ~, worker]
44 }{
45 out <- [list]Set[index, newval]
46 }
47 }
48
49 SMap[list,worker:out]
50 {
51 [list]First
52 {
53 out <- _SMap[list, ~, worker]
28 }{ 54 }{
29 out <- list 55 out <- list
30 } 56 }
31 } 57 }
32 58