사용자 정의 유형을 일반 목록 인 것처럼 합계합니다. F #

Question

내 특수 유형에 저장할 수있는 값 목록을 합한 함수를 작성하려고합니다. |

내 타입은 INT의

형 intnest = INT처럼 보인다 인트네스트리스트의리스트 ;;

내 요약을 할 아래의 코드를 사용하려고 시도하고

let rec regularsum list = 
    match list with 
    | head :: tail -> head + regularsum tail 
    | [] -> 0 

let addup lt = 
    match lt with 
    | INT -> lt 
    | LIST ->regularsum lt 

가 내 사용자 정의 유형이 요소가 요약 할 수 있습니다 (내가 원하는 addup 유형 intnest를 반환)? 그렇다면이를 달성하기 위해 어떻게 코드를 변경해야합니까? 또는 다음에 무엇을 시도해야합니까?

Answer 1

그래서이 작업을 수행하는 가장 좋은 방법은

let rec addup l = 
    match l with 
    |INT(_) -> l 
    |LIST(li) -> 
     INT(
      li 
      |> List.map (addup) 
      |> List.fold (fun s t -> match t with |INT(a) -> s+a | _ -> failwith "bad error") 0)