2007-09-20 18:09:08 -04:00
|
|
|
USING: math sequences classes growable tools.test kernel
|
|
|
|
|
layouts ;
|
|
|
|
|
IN: temporary
|
|
|
|
|
|
|
|
|
|
! erg found this one
|
|
|
|
|
[ fixnum ] [
|
|
|
|
|
2 >bignum V{ } [ set-length ] keep length class
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
! overflow bugs
|
|
|
|
|
[ "hi" most-positive-fixnum 2 * 2 + V{ } clone set-nth ]
|
|
|
|
|
unit-test-fails
|
|
|
|
|
|
|
|
|
|
[ most-positive-fixnum 2 * 2 + { 1 } clone nth ]
|
|
|
|
|
unit-test-fails
|
|
|
|
|
|
|
|
|
|
[ most-positive-fixnum 2 * 2 + V{ } clone lengthen ]
|
|
|
|
|
unit-test-fails
|
|
|
|
|
|
|
|
|
|
[ most-positive-fixnum 2 * 2 + V{ } clone set-length ]
|
|
|
|
|
unit-test-fails
|
|
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
10 V{ } [ set-length ] keep
|
2007-10-14 21:13:42 -04:00
|
|
|
0.5 swap set-length
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
