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 |