Mercurial > repos > rhope
comparison nworker_c.rhope @ 117:4d089503fb51
Performance optimization
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 14 Oct 2010 22:37:20 -0400 |
parents | 04148770c229 |
children | b3f56e1d54a0 |
comparison
equal
deleted
inserted
replaced
116:60906f8803ef | 117:4d089503fb51 |
---|---|
37 out <- [[set]Variables <<[ Combine[[set]Variables >>, [cond]Variables >>] ] | 37 out <- [[set]Variables <<[ Combine[[set]Variables >>, [cond]Variables >>] ] |
38 ]Subsets <<[ Combine[[set]Subsets >>, [cond]Subsets >>] ] | 38 ]Subsets <<[ Combine[[set]Subsets >>, [cond]Subsets >>] ] |
39 }{ | 39 }{ |
40 [cond]Empty? | 40 [cond]Empty? |
41 { | 41 { |
42 out <- [set]Subsets <<[ [[set]Subsets>>]Set[[cond]To String, cond] ] | 42 [cond]Simple? |
43 { out <- [set]Variables <<[ Combine[[set]Variables >>, [cond]Variables >>] ] } | |
44 { out <- [set]Subsets <<[ [[set]Subsets>>]Set[[cond]To String, cond] ] } | |
43 }{ | 45 }{ |
44 out <- set | 46 out <- set |
45 } | 47 } |
46 } | 48 } |
47 }{ | 49 }{ |
89 }{ | 91 }{ |
90 ,empty <- [[set]Subsets >>]First | 92 ,empty <- [[set]Subsets >>]First |
91 { | 93 { |
92 not empty <- Yes | 94 not empty <- Yes |
93 } | 95 } |
96 } | |
97 } | |
98 | |
99 Simple?@Condition Set[set:simple,not simple] | |
100 { | |
101 ,not simple <- If[[Length[[set]Variables >>]]=[1]] | |
102 { | |
103 simple,not simple <- If[[Blueprint Of[[set]Subsets >>]]=[Empty Dictionary()]] | |
94 } | 104 } |
95 } | 105 } |
96 | 106 |
97 For Backend@Condition Set[set:out,none] | 107 For Backend@Condition Set[set:out,none] |
98 { | 108 { |