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 } |