2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2005 Chris Double. All Rights Reserved.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2016-03-30 23:04:14 -04:00
|
|
|
USING: channels kernel sequences sorting threads tools.test ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
{ V{ 10 } } [
|
2007-11-05 02:51:38 -05:00
|
|
|
V{ } clone <channel>
|
|
|
|
[ from swap push ] in-thread
|
2015-07-02 13:34:01 -04:00
|
|
|
10 swap to
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
|
|
{ 20 } [
|
2007-11-05 02:51:38 -05:00
|
|
|
<channel>
|
|
|
|
[ 20 swap to ] in-thread
|
2015-07-02 13:34:01 -04:00
|
|
|
from
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
|
|
|
|
2008-07-16 02:03:41 -04:00
|
|
|
{ { 1 2 3 4 } } [
|
2007-11-05 02:51:38 -05:00
|
|
|
V{ } clone <channel>
|
|
|
|
[ from swap push ] in-thread
|
|
|
|
[ from swap push ] in-thread
|
|
|
|
[ from swap push ] in-thread
|
|
|
|
[ from swap push ] in-thread
|
2015-07-02 13:34:01 -04:00
|
|
|
4 over to
|
|
|
|
2 over to
|
|
|
|
1 over to
|
|
|
|
3 swap to
|
2007-11-05 02:51:38 -05:00
|
|
|
natural-sort
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
|
|
|
|
2008-07-16 02:03:41 -04:00
|
|
|
{ { 1 2 4 9 } } [
|
2007-11-05 02:51:38 -05:00
|
|
|
V{ } clone <channel>
|
|
|
|
[ 4 swap to ] in-thread
|
|
|
|
[ 2 swap to ] in-thread
|
|
|
|
[ 1 swap to ] in-thread
|
|
|
|
[ 9 swap to ] in-thread
|
2015-07-02 13:34:01 -04:00
|
|
|
2dup from swap push
|
|
|
|
2dup from swap push
|
|
|
|
2dup from swap push
|
|
|
|
dupd from swap push
|
2007-11-05 02:51:38 -05:00
|
|
|
natural-sort
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|