#1228. Скрипты. Тесты к функциям для работы с массивами

PROGRAM arrayHas.ms.script

USES
 arrays.ms.dict
;

1 [ 1 2 ] array:Has .
3 [ 1 2 ] array:Has .

1 .InArray: [ 1 2 ] .
3 .InArray: [ 1 2 ] .

: A1 [ 1 2 ] ;

1 .InArray: A1 .
3 .InArray: A1 .

[ 1 2 ] >reverted> .
[ 1 2 ] .reverted> .
[ 1 2 ] REVERTED .
[ 1 2 ] Reverted .
[ 1 2 ] reverted .

1 .NotInArray: [ 1 2 ] .
3 .NotInArray: [ 1 2 ] .
1 .NotInArray: A1 .
3 .NotInArray: A1 .

[ 'a' 'b' ] 'a' array:HasString .
[ 'a' 'b' ] 'c' array:HasString .
[ 'a' 'b' ] 'A' array:HasString .
[ 'a' 'b' ] 'C' array:HasString .

'a' .StringInArray: [ 'a' 'b' ] .
'c' .StringInArray: [ 'a' 'b' ] .
'A' .StringInArray: [ 'a' 'b' ] .
'C' .StringInArray: [ 'a' 'b' ] .