Mercurial > repos > tabletprog
diff samples/sort.tp @ 322:fb54a3af9c86
Add sort method to arrays
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 22 Mar 2015 22:06:50 -0700 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/sort.tp Sun Mar 22 22:06:50 2015 -0700 @@ -0,0 +1,16 @@ +#{ + main <- { + a <- #[1 2 3 4 5 6 7 8 9] + b <- #[9 8 7 6 5 4 3 2 1] + c <- #[1 3 5 7 9 2 4 6 8 10] + d <- #[10 8 6 4 2 9 7 5 3 1] + a sort + print: (a join: " ") . "\n" + b sort + print: (b join: " ") . "\n" + c sort + print: (c join: " ") . "\n" + d sort + print: (d join: " ") . "\n" + } +} \ No newline at end of file