10 lines
245 B
Factor
10 lines
245 B
Factor
|
IN: temporary
|
||
|
|
USING: simplex test ;
|
||
|
|
|
||
|
|
! [ { 1 } ] [ {*} H ] unit-test
|
||
|
|
! [ { 2 } ] [ S^0 H ] unit-test
|
||
|
|
! [ { 1 1 } ] [ 1 S^ H ] unit-test
|
||
|
|
! [ { 1 0 } ] [ 1 D^ H ] unit-test
|
||
|
|
! [ { 1 0 1 } ] [ 2 S^ H ] unit-test
|
||
|
|
! [ { 1 0 0 } ] [ 2 D^ H ] unit-test
|