Mercurial > repos > tabletprog
annotate samples/sort.tp @ 347:ff7ea11b4b60
Add length method to executable bytearrays
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Fri, 10 Apr 2015 00:48:12 -0700 |
| parents | fb54a3af9c86 |
| children |
| rev | line source |
|---|---|
| 322 | 1 #{ |
| 2 main <- { | |
| 3 a <- #[1 2 3 4 5 6 7 8 9] | |
| 4 b <- #[9 8 7 6 5 4 3 2 1] | |
| 5 c <- #[1 3 5 7 9 2 4 6 8 10] | |
| 6 d <- #[10 8 6 4 2 9 7 5 3 1] | |
| 7 a sort | |
| 8 print: (a join: " ") . "\n" | |
| 9 b sort | |
| 10 print: (b join: " ") . "\n" | |
| 11 c sort | |
| 12 print: (c join: " ") . "\n" | |
| 13 d sort | |
| 14 print: (d join: " ") . "\n" | |
| 15 } | |
| 16 } |