36 lines
734 B
Factor
36 lines
734 B
Factor
|
! Copyright (C) 2012 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors arrays.shaped kernel tools.test ;
|
||
|
|
IN: arrays.shaped.tests
|
||
|
|
|
||
|
|
[ t ] [
|
||
|
|
{ 5 5 } increasing
|
||
|
|
{
|
||
|
|
{ 0 1 2 3 4 }
|
||
|
|
{ 5 6 7 8 9 }
|
||
|
|
{ 10 11 12 13 14 }
|
||
|
|
{ 15 16 17 18 19 }
|
||
|
|
{ 20 21 22 23 24 }
|
||
|
|
} >shaped-array =
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { 5 5 } ] [
|
||
|
|
{
|
||
|
|
{ 0 1 2 3 4 }
|
||
|
|
{ 5 6 7 8 9 }
|
||
|
|
{ 10 11 12 13 14 }
|
||
|
|
{ 15 16 17 18 19 }
|
||
|
|
{ 20 21 22 23 24 }
|
||
|
|
} >shaped-array shape>>
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { 5 5 } ] [
|
||
|
|
{
|
||
|
|
{ 0 1 2 3 4 }
|
||
|
|
{ 5 6 7 8 9 }
|
||
|
|
{ 10 11 12 13 14 }
|
||
|
|
{ 15 16 17 18 19 }
|
||
|
|
{ 20 21 22 23 24 }
|
||
|
|
} >shaped-array shape
|
||
|
|
] unit-test
|