История изменений
Исправление quantum-troll, (текущая версия) :
(* % +) означает «произведение, делённое на сумму». Вот ещё примеры:
+/ % # — cумма элементов делённая на длину списка, иначе говоря — среднее значение.
fibN=: (-&2 +&$: -&1)^:(1&<)v ^: n означает «применить глагол n раз», в данном случае, 0 или 1.
Таким образом, fibN y означает: y, если y ≤ 1, иначе сумма fibN (y - 2) c fibN (y - 1).
encodeLZW =: 4 : 0
d=. ;/x
r=.0$0
wc=.w=.{.y
for_c. }.y do.
wc=.w,c
if. d e.~ <wc do. w=.wc else.
r=. r, d i.<w
d=.d,<wc
w=.c
end.
end.
r, d i.<w
)Исходная версия quantum-troll, :
(* % +) означает «произведение, делённое на сумму». Вот ещё примеры: +/ % # — cумма элементов делённая на длину списка, иначе говоря — среднее значение.
fibN=: (-&2 +&$: -&1)^:(1&<)encodeLZW =: 4 : 0
d=. ;/x
r=.0$0
wc=.w=.{.y
for_c. }.y do.
wc=.w,c
if. d e.~ <wc do. w=.wc else.
r=. r, d i.<w
d=.d,<wc
w=.c
end.
end.
r, d i.<w
)