Mercurial > repos > rhope
comparison kernel.rhope @ 78:4d5ea487f810
Working String implementation and some basic (but nowhere near exhaustive) tests
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Thu, 08 Jul 2010 21:55:47 -0400 |
| parents | 0083b2f7b3c7 |
| children | 80d8c9248f85 |
comparison
equal
deleted
inserted
replaced
| 77:a748300a4143 | 78:4d5ea487f810 |
|---|---|
| 372 { | 372 { |
| 373 out <- right | 373 out <- right |
| 374 } | 374 } |
| 375 } | 375 } |
| 376 | 376 |
| 377 | 377 Min[a,b:out] |
| 378 | 378 { |
| 379 If[[a]<[b]] | |
| 380 { | |
| 381 out <- a | |
| 382 }{ | |
| 383 out <- b | |
| 384 } | |
| 385 } | |
| 386 | |
| 387 Max[a,b:out] | |
| 388 { | |
| 389 If[[a]>[b]] | |
| 390 { | |
| 391 out <- a | |
| 392 }{ | |
| 393 out <- b | |
| 394 } | |
| 395 } | |
| 396 |