#1288. "А ваш язык так может?" №9

[ 1 2 ]
.join> [ 3 4 ]
.equal [ 1 2 3 4 ]
.assure 'Тест не прошёл'

[ [ 1 2 ] [ 3 4 ] ]
.fold>
.equal [ 1 2 3 4 ]
.assure 'Тест не прошёл'

[ [ 1 2 ] [ 3 [ 4 ] ] ]
.fold>
.equal [ 1 2 3 [ 4 ] ]
.assure 'Тест не прошёл'

[ [ 1 2 ] [ 3 [ 4 ] ] ]
.deepFold>
.equal [ 1 2 3 4 ]
.assure 'Тест не прошёл'

[ [ 1 2 ] [ 3 [ 4 [ 5 ] ] ] ]
.deepFold>
.equal [ 1 2 3 4 5 ]
.assure 'Тест не прошёл'

0
[ [ 1 2 ] [ 3 [ 4 [ 5 ] ] ] ]
.deepFold>
.for> +
.equal 15
.assure 'Тест не прошёл'

PROCEDURE .testAssure
  BOOLEAN IN aCondition
 aCondition .isTrue .assure 'Тест не прошёл'
; // .testAssure

0
[ [ 1 2 ] [ 3 [ 4 [ 5 ] ] ] ]
.deepFold>
.for> +
.equal 15
.testAssure

PROCEDURE .testFail
  BOOLEAN IN aCondition
 aCondition .not .isTrue .fail 'Тест не прошёл'
; // .testFail

0
[ [ 1 2 ] [ 3 [ 4 [ 5 ] ] ] ]
.deepFold>
.for> +
.not .equal 15
.testFail

PROCEDURE .testNotImportant
  BOOLEAN IN aCondition
 // - нам НЕ ВАЖНО значение aCondition - мы его и НЕ ИСПОЛЬЗУЕМ
; // .testNotImportant

0
[ [ 1 2 ] [ 3 [ 4 [ 5 ] ] ] ]
.deepFold>
.for> +
.not .equal 15
.testNotImportant

0
[ [ 1 2 ] [ 3 [ 4 [ 5 ] ] ] ]
.deepFold>
.for> +
.equal 15
.testNotImportant