ความสูงของต้นไม้ไบนารีคือระยะทางจากรูตโหนดไปยังโหนดชายด์ที่อยู่ห่างจากรูทมากที่สุด

ด้านล่างเป็นตัวอย่าง:

           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 ไบต์

ŒḊ’

Monadic Link ยอมรับรายการที่แสดงถึง tree: [root_value, left_tree, right_tree]โดยที่แต่ละตัวleft_treeและright_treeมีโครงสร้างคล้ายกัน (ว่างถ้าจำเป็น) ซึ่งให้ความสูง

ลองออนไลน์!

อย่างไร?

เล็กน้อยในเยลลี่:

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

Python 2 ,  35  33 ไบต์

ขอบคุณ Arnauld ที่คอยกำกับดูแลและประหยัด 4

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

ฟังก์ชั่นวนซ้ำรับรายการที่แสดงถึง tree: [root_value, left_tree, right_tree]โดยที่แต่ละตัวleft_treeและright_treeเป็นโครงสร้างที่คล้ายกัน (ว่างถ้าต้องการ) ซึ่งจะส่งกลับความสูง

ลองออนไลน์!

^{โปรดทราบว่า[]จะกลับมาแต่ในหลามFalseFalse==0}

Haskell, 33 ไบต์

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

ใช้ประเภทต้นไม้ที่กำหนดเองdata T = L | N T T Intซึ่งเป็น Haskell เทียบเท่ากับโครงสร้าง C ที่กำหนดในการท้าทาย

ลองออนไลน์!

Perl 6 , 25 ไบต์

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

(l, r, v)การป้อนข้อมูลเป็นรายการที่ 3 องค์ประกอบ ต้นไม้ที่ว่างเปล่าเป็นรายการที่ว่างเปล่า

ลองออนไลน์!

คำอธิบาย

{                       }  # 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
-2 ไบต์ขอบคุณที่@Grimy

รูปแบบการป้อนข้อมูลจะคล้ายกับคำตอบของเยลลี่: รายการที่แสดงถึงต้นไม้: [root_value, left_tree, right_tree]ซึ่งแต่ละรายการleft_treeและright_treeมีโครงสร้างที่คล้ายกัน (ว่างเปล่าทางเลือก) Ie [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 การวนรอบการเปลี่ยนแปลงΔทำให้ดัชนีผลลัพธ์ถูกต้องเนื่องจากต้องการการวนซ้ำเพิ่มเติมเพื่อตรวจสอบว่าไม่มีการเปลี่ยนแปลงอีกต่อไป

JavaScript (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;

JavaScript (Node.js)ขนาด 32 ไบต์

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

ลองออนไลน์!

ใช้ชื่อflatแทนflattenหรือsmooshเป็นความคิดที่ดีสำหรับการเล่นกอล์ฟ

ใช้[]สำหรับโหนด Null ในแผนผังและ[left, right, value]สำหรับโหนด valueนี่คือจำนวนเต็ม

ภาษา Wolfram (Mathematica)ขนาด 10 ไบต์

Depth@#-2&

ลองออนไลน์! {v, l, r}จะเข้าเป็นรายการที่ซ้อนกัน

Haskell, 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)

• -2 ขอบคุณ @Giuseppe

Japtet , 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 ไบต์

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

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด แก้ไขแผนผังชั่วคราวระหว่างการประมวลผล คำอธิบาย:

⊞θ⁰

ดันศูนย์ให้เป็นโหนดรูท

⊞υθ

พุชโหนดรูทไปยังรายการโหนดทั้งหมด

Ｆυ«

ทำการค้นหาต้นไม้อย่างกว้าง ๆ

≔⊕⊟ιθ

รับความลึกของโหนดนี้

ＦΦι∧κλ

วนซ้ำโหนดย่อยใด ๆ

⊞υ⊞Ｏκθ

บอกโหนดย่อยกับความลึกของพาเรนต์และส่งไปยังรายการโหนดทั้งหมด

»Ｉθ

เมื่อโหนดทั้งหมดถูก traversed แล้วพิมพ์ความลึกของโหนดสุดท้าย เนื่องจากการสำรวจเส้นทางกว้างก่อนนี่จะเป็นความสูงของต้นไม้

Stax , 5 ไบต์

▐▌µ╡⌂

เรียกใช้และแก้ไขข้อบกพร่อง

สแตกซ์มีค่าตัวชี้มิได้ค่า null [2,[7,[2,[],[]],[6,[5,[],[]],[11,[],[]]]],[5,[],[9,[4,[],[]],[]]]]ดังนั้นฉันแทนการป้อนข้อมูลเช่น อาจจะเป็นข้อได้เปรียบที่ไม่เป็นธรรม แต่มันก็ใกล้เคียงที่สุดที่ฉันจะได้รับ

คลายไฟล์ ungolfed และแสดงความคิดเห็นโค้ดมีลักษณะเช่นนี้

        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

เรียกใช้อันนี้

Kotlin ขนาด 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)

ลองออนไลน์

Julia, 27 ไบต์

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

ด้วย struct ต่อไปนี้เป็นตัวแทนของต้นไม้ไบนารี:

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

cคือ tuple ที่แสดงถึงโหนดด้านซ้ายและขวาและ tuple ที่ว่างเปล่า()ถูกใช้เพื่อส่งสัญญาณว่าไม่มีโหนด

Kotlin , 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)