Mercurial > repos > rhope
comparison list.rhope @ 101:f4fc0a98088a
Fixed some bugs that were preventing compiled compiler from working correctly. Need to address memory usage
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 09 Aug 2010 23:53:20 -0400 |
parents | f51c4c17457c |
children | 85f8012b6938 147dfc703161 |
comparison
equal
deleted
inserted
replaced
100:f51c4c17457c | 101:f4fc0a98088a |
---|---|
222 { | 222 { |
223 If[[[list]Right Offset >>]>[index]] | 223 If[[[list]Right Offset >>]>[index]] |
224 { | 224 { |
225 out <- [list]Set[index, val] | 225 out <- [list]Set[index, val] |
226 }{ | 226 }{ |
227 out,didn't set <- [[list]Right >>]_Right Set[[index]-[[list]Right Offset >>], val] | 227 ,didn't set <- [[list]Right >>]_Right Set[[index]-[[list]Right Offset >>], val] |
228 { out <- [list]Right <<[~] } | |
228 } | 229 } |
229 } | 230 } |
230 | 231 |
231 Last@List[list:out,none] | 232 Last@List[list:out,none] |
232 { | 233 { |
350 }{ | 351 }{ |
351 empty <- list | 352 empty <- list |
352 } | 353 } |
353 } | 354 } |
354 | 355 |
355 | 356 _Check Present[check in,val,index:out] |
357 { | |
358 [check in]Index[index] | |
359 { | |
360 If[[~]=[val]] | |
361 { out <- No } | |
362 { out <- Yes } | |
363 }{ | |
364 out <- Yes | |
365 } | |
366 } | |
367 | |
368 _=List[a,b:out] | |
369 { | |
370 ,out <- If[[[a]Length]=[[b]Length]] | |
371 { | |
372 [a]Find[_Check Present[b,?]] | |
373 { | |
374 out <- No | |
375 }{ | |
376 out <- Yes | |
377 } | |
378 } | |
379 } | |
380 | |
381 =@List Leaf[a,b:out] | |
382 { | |
383 out <- _=List[a,b] | |
384 } | |
385 | |
386 =@List[a,b:out] | |
387 { | |
388 out <- _=List[a,b] | |
389 } |