AK
Size: a a a
AK
PF
AK
AK
AK
к
AT
AT
w
NK
AT
к
w
AT
к
AT
NK
к
updateByIndex
: number
-> (a -> a)
-> List a
-> List a
updateByIndex n f list =
let
go : Int -> List a -> List a
go n list = case (n, list) of
(_, []) -> []
(0, x :: xs) -> f x :: xs
(n, x :: xs) -> x :: go (n - 1) xs
in
go n list
NS
AT