Средство вложенных списков

Question

Я пытаюсь вычислить среднее значение вложенных списков. Я попытался с помощью функции карты, но по умолчанию дает среднее значение в противоположном измерении, что я заинтересован в Смотрите пример ниже:.

set a [[1 1][2 2][3 3]] ; create a nested list 
set b map mean a  ; b equals [1 2 3] 

Этот ответ дает [1 2 3] для б. Однако меня интересует ответ [2 2], взяв среднее значение в «другом» измерении. Я бы предположил, что есть способ сделать это с map, но не понял.

Answer 1

to go 
    print column-means [ 
    [ 1 1 ] 
    [ 2 2 ] 
    [ 3 3 ] 
    ] 
end 

to-report column-means [ matrix ] 
    if length (remove-duplicates map length matrix) > 1 [ 
    error "All rows must be the same length" 
    ] 
    report n-values length first matrix [ mean extract ? matrix ] 
end 

to-report extract [ i row ] 
    report map [ item i ? ] row 
end 

Answer 2

Возможное решение заключается в следующем

set a [[1 2 3] [1 2 3]]
set b map mean a

это даст вам [2 2] для б.