| Сообразно | m@.n m@.v mv lv rv |
|
m@.n есть глагол, определенный
герундием m сообразно n ;
тоесть цепочка глаголов, выбранная из m ,
по индексам в n . Если n упаковочный,
в цепочку вставляются скобки. Случай m@.v
берет в качестве индексов результат глагола v .
|
dorh=: +: ` -: @. (]>9:) Удвоить или уполовинить (оператор Case)
dorh " 0 primes=: 2 3 5 7 11 13 17 19
4 6 10 14 5.5 6.5 8.5 9.5
_:`%:`*: @. * "0 a=: 2 1 0 _1 _2
1.41421 1 _ 1 4
g=: +`-`*
x=: 1 2 3 [ y=: 6 5 4
(x g@.2: y)
6 10 12
(] * <:) y=: 5 4 3 2 1 0 Множители факториала
20 12 6 2 0 0
1:`(] * <:) @. (1: < ]) "0 y оператор Case
20 12 6 2 1 1
1:`(] * $:@<:)@.(1: < ])"0 y Вызвать Себя для рекурсии
120 24 6 2 1 1
+`-`*`% @. (1 0 3;2 0)
(- + %) (* +)
3 +`-`*`% @. (1 0 3;2 0) 4
_12.8125
perm=: i.@i.@_2: ` ([: ,/ (0: ,. $:&.<:) {"2 1 \:"1@=@i.) @. *
perm 3
0 1 2
0 2 1
1 0 2
1 2 0
2 0 1
2 1 0