이진 트리의 높이는 루트 노드에서 루트에서 가장 먼 노드 자식까지의 거리입니다.

아래는 예입니다.

           2 <-- root: Height 1
          / \
         7   5 <-- Height 2
        / \   \
       2   6   9 <-- Height 3
          / \  /
         5  11 4 <-- Height 4 

이진 트리의 높이 : 4

이진 트리의 정의

트리는 부호있는 정수 값과 다른 두 개의 트리 또는 포인터를 포함하는 객체입니다.

이진 트리 구조체의 구조는 다음과 같습니다.

typedef struct tree
{
  struct tree * l;

  struct tree * r;

  int v;

} tree;

도전 과제 :

입력

이진 트리의 루트

산출

이진 트리의 높이를 나타내는 숫자

이진 트리의 루트가 입력으로 주어 졌다고 가정하면 이진 트리의 높이를 계산하고 높이를 반환하는 가장 짧은 프로그램을 작성하십시오. 바이트 수가 가장 적은 프로그램 (공백 공백)이 이깁니다.

젤리 , 3 바이트

ŒḊ’

트리를 나타내는 목록을 받아들이는 모나드 링크 : [root_value, left_tree, right_tree], 각각의 경우 left_tree와는 right_tree유사한 구조가 (필요가있을 경우 비어 있음), 높이를 산출한다.

온라인으로 사용해보십시오!

어떻게?

젤리에서 아주 사소한 :

ŒḊ’ - Link: list, as described above
ŒḊ  - depth
  ’ - decremented (since leaves are `[value, [], []]`)

파이썬 2 ,  35  33 바이트

감독과 비용 절감을 알리는 Arnauld에게 감사드립니다.

f=lambda a:a>[]and-~max(map(f,a))

트리를 나타내는 목록을 받아들이는 재귀 함수 : [root_value, left_tree, right_tree], 각각의 경우 left_tree와는 right_tree유사한 구조가 (필요가있을 경우 비어 있음), 높이를 반환합니다.

온라인으로 사용해보십시오!

^{참고 []반환 False하지만, 파이썬 False==0.}

하스켈, 33 바이트

h L=0 
h(N l r _)=1+max(h l)(h r)

data T = L | N T T Int챌린지에 제공된 C 구조체와 Haskell에 해당 하는 사용자 정의 트리 유형 사용

온라인으로 사용해보십시오!

펄 6 , 25 바이트

{($_,{.[*;*]}...*eqv*)-2}

입력은 3 요소 목록 (l, r, v)입니다. 빈 트리는 빈 목록입니다.

온라인으로 사용해보십시오!

설명

{                       }  # Anonymous block
    ,        ...  # Sequence constructor
  $_  # Start with input
     {.[*;*]}  # Compute next element by flattening one level
               # Sadly *[*;*] doesn't work for some reason
                *eqv*  # Until elements doesn't change
 (                   )-2  # Size of sequence minus 2

이전 솔루션, 30 바이트

{+$_&&1+max map &?BLOCK,.[^2]}

온라인으로 사용해보십시오!

05AB1E , 11 7 5 바이트

Δ€`}N

덕분에 -4 바이트 @ExpiredData . @Grimy
덕분에 -2 바이트 .

입력 형식은 젤리 답변과 비슷합니다 : 트리를 나타내는 목록 : [root_value, left_tree, right_tree] 여기서 각 left_tree과right_tree 비슷한 구조입니다 (선택적으로 비어 있음). 즉 [2,[7,[2,[],[]],[6,[5,[],[]],[11,[],[]]]],[5,[],[9,[4,[],[]],[]]]], 과제 설명에서 트리를 나타냅니다.

온라인으로 사용해보십시오 하거나 몇 가지 테스트 사례를 확인하십시오. .

설명:

Δ     # Loop until the (implicit) input-list no longer changes:
  €`  #  Flatten the list one level
}N    # After the loop: push the 0-based index of the loop we just finished
      # (which is output implicitly as result)

05AB1E는 0을 기반으로하지만 changes-loop Δ는 더 이상 변경되지 않는지 확인하기 위해 추가 반복이 필요하기 때문에 출력 인덱스가 정확합니다.

자바 스크립트 (ES6),  35  33 바이트

입력 구조 : [[left_node], [right_node], value]

f=([a,b])=>a?1+f(f(a)>f(b)?a:b):0

온라인으로 사용해보십시오!

댓글

f =                       // f is a recursive function taking
([a, b]) =>               // a node of the tree split into
                          // a[] = left child, b[] = right child (the value is ignored)
  a ?                     // if a[] is defined:
    1 +                   //   increment the final result for this branch
    f(                    //   and add:
      f(a) > f(b) ? a : b //     f(a) if f(a) > f(b) or f(b) otherwise
    )                     //
  :                       // else:
    0                     //   stop recursion and return 0

C, 43 바이트

h(T*r){r=r?1+(int)fmax(h(r->l),h(r->r)):0;}

이진 트리의 구조는 다음과 같습니다.

typedef struct tree
{
  struct tree * l;

  struct tree * r;

  int v;

} tree;

자바 스크립트 (Node.js) , 32 바이트

f=a=>/,,/.test(a)&&f(a.flat())+1

온라인으로 사용해보십시오!

코드 골프 flat대신 flatten또는 이름을 사용하는 smoosh것이 좋습니다.

[]트리에서 널 노드와 노드에 사용 합니다 [left, right, value]. value여기 정수가 있습니다.

Wolfram Language (Mathematica) , 10 바이트

Depth@#-2&

온라인으로 사용해보십시오! 입력을 중첩 목록으로 가져옵니다 {v, l, r}.

하스켈, 28 바이트

다음 데이터 정의 사용 :

data T a = (:&) a [T a]

높이는 :

h(_:&x)=foldr(max.succ.h)0 x

구성표, 72 바이트

(define(f h)(if(null? h)0(+ 1(max(f(car(cdr h)))(f(car(cdr(cdr h))))))))

더 읽기 쉬운 버전 :

(define (f h)
   (if (null? h)
      0
      (+ 1 
         (max
             (f (car (cdr h)))
             (f (car (cdr (cdr h))))
         )
      )
   )
)

양식 목록 (데이터, 왼쪽, 오른쪽)을 사용하여 트리를 나타냅니다. 예 :

   1
  / \
  2  3
 /\
 4 5

is represented as: (1 (2 (4 () ()) (5 () ())) (3 () ())

(1
   (2
      (4 () ())
```   (5 () ())
   (3 () ())
)

온라인으로 사용해보십시오!

R , 51 바이트

function(L){while(is.list(L<-unlist(L,F)))T=T+1;+T}

온라인으로 사용해보십시오!

• 입력 : 형식의 중첩 목록 :list(ROOT_ELEMENT, LEFT_TREE, RIGHT_TREE)

• 알고리즘 : 평평한 벡터가 될 때까지 트리를 한 수준 씩 반복적으로 평탄화합니다. 반복 횟수는 최대 깊이에 해당합니다.

@KevinCruijssen 솔루션에서 영감을 얻음

재귀 적 대안 :

R , 64 바이트

`~`=function(L,d=0)'if'(is.list(L),max(L[[2]]~d+1,L[[3]]~d+1),d)

온라인으로 사용해보십시오!

기능 / 연산자를 재정의 '~' 를 목록 구조에 저장된 트리의 최대 깊이를 계산할 수 있습니다.

트리의 목록 구조는 다음과 같은 형식입니다. list(ROOT_ELEMENT, LEFT_TREE, RIGHT_TREE)

• @Giuseppe 덕분에 -2

Japt , 8 바이트

@eU=c1}a

시도 해봐

원본, 9 바이트

Ω¡ÒßXÃrw

시도 해봐

K (ngn / k) , 4 바이트

해결책:

#,/\

온라인으로 사용해보십시오!

설명:

요점을 놓친 것 같습니다.

트리를 3 가지 항목 목록 (parent-node; left-child; right-child)으로 나타내면 예제는 다음과 같이 표현 될 수 있습니다.

(2;
  (7;
    (,2);
    (6;
      (,5);
      (,11)
    )
  );
  (5;
    ();
    (9;
      (,4);
      ()
    )
  )
)

또는 : (2;(7;(,2);(6;(,5);(,11)));(5;();(9;(,4);()))).

따라서 해결책은 반복적으로 평탄화하고 반복 횟수를 계산하는 것입니다.

#,/\ / the solution
   \ / iterate
 ,/  / flatten
#    / count

숯 , 29 바이트

⊞θ⁰⊞υθＦυ«≔⊕⊟ιθＦΦι∧κλ⊞υ⊞Ｏκθ»Ｉθ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 처리하는 동안 트리를 임시로 수정합니다. 설명:

⊞θ⁰

루트 노드로 0을 밉니다.

⊞υθ

루트 노드를 모든 노드 목록으로 푸시하십시오.

Ｆυ«

트리의 너비 우선 탐색을 수행하십시오.

≔⊕⊟ιθ

이 노드의 깊이를 얻습니다.

ＦΦι∧κλ

모든 자식 노드를 반복합니다.

⊞υ⊞Ｏκθ

자식 노드에 부모의 깊이를 알려주고 모든 노드 목록으로 밉니다.

»Ｉθ

모든 노드가 이송되면 마지막 노드의 깊이를 인쇄합니다. 순회가 너비 우선이기 때문에 이것이 나무의 높이가됩니다.

Stax , 5 바이트

▐▌µ╡⌂

실행 및 디버깅

Stax에는 포인터 나 null 값이 없으므로 다음과 같은 입력을 나타냅니다 [2,[7,[2,[],[]],[6,[5,[],[]],[11,[],[]]]],[5,[],[9,[4,[],[]],[]]]]. 어쩌면 그것은 불공평 한 이점이지만, 내가 얻을 수있는 가장 가까운 곳이었습니다.

압축을 풀고 압축을 풀고 주석 처리 한 코드는 다음과 같습니다.

        The input starts on top of the input stack
Z       Tuck a zero underneath the top value in the stack.  Both values end up on the main stack.
D       Drop the first element from array
F       For each remaining element (the leaves) run the rest of the program
  G^    Recursively call the entire program, then increment
  T     Get maximum of the two numbers now ow the stack

이것을 실행

코 틀린, 45 바이트

val Tree.h:Int get()=1+maxOf(l?.h?:0,r?.h?:0)

다음 클래스가 정의되었다고 가정

class Tree(var v: Int, var l: Tree? = null, var r: Tree? = null)

온라인으로 사용해보십시오

줄리아, 27 바이트

f(t)=t≢()&&maximum(f,t.c)+1

이진 트리를 나타내는 다음 구조체를 사용하십시오.

struct Tree
    c::NTuple{2,Union{Tree,Tuple{}}}
    v::Int
end

c왼쪽 및 오른쪽 노드를 나타내는 튜플 ()이며 빈 튜플 은 노드가 없음을 나타내는 데 사용됩니다.

코 틀린 , 42 바이트

fun N.c():Int=maxOf(l?.c()?:0,r?.c()?:0)+1

온라인으로 사용해보십시오!

어디

data class N(val l: N? = null, val r: N? = null, val v: Int = 0)