Path: usenet.cis.ufl.edu!usenet.eel.ufl.edu!pacifier!news.alpha.net!news.mathworks.com!gatech!howland.reston.ans.net!vixen.cso.uiuc.edu!news.uoregon.edu!psgrain!nntp.teleport.com!usenet
From: Pat Martin <
[email protected]>
Newsgroups: comp.lang.perl.announce,comp.lang.perl.misc,comp.lang.perl
Subject: Tree Implementation
Followup-To: comp.lang.perl.misc
Date: 22 Jun 1995 00:40:16 GMT
Organization: Landmark Graphics Corporation
Lines: 124
Approved:
[email protected] (comp.lang.perl.announce)
Message-ID: <
[email protected]>
NNTP-Posting-Host: linda.teleport.com
X-Disclaimer: The "Approved" header verifies header information for article transmission and does not imply approval of content.
Xref: usenet.cis.ufl.edu comp.lang.perl.announce:48 comp.lang.perl.misc:817 comp.lang.perl:52746
I can't remember if I submitted this to the newsgroup but anyway
here it is. It's a binary tree implementation I wrote for no
apparent reason.
---------------------------- CUT HERE ----------------------------
begin 664 Tree.pm.tar.Z
M'YV0+EY0D5.FS!<J9>;0B>$"#AL $"-*G$BQHL6+&#-JK BBXXT;-4 Z B"
M1@P;(DG.B"$C)4F2,6+0@-&QQHV5-FK4F$&#!DD;-F2.W$BTJ-&C2),J7<JT
MJ=.G4*-*E3HBQ(LZ<^2\8/-F3!@V+\2D<?,"3ADY;$"TN*- @9 B1Y(X4;!'
M 4DX6-&@ ")W" L0(EZ$(6,GC)LQ9<J^D4-G:QHQ9<^"54CF"YDT"D6DV*&@
MCP*L94 0F4)'3ITQ='3H&%B0,V@01=R<88,9#6<%<^J($?U&-YLR=.UV;),'
M!0DB8>B$D5+&3 H0/4 "2+E"&>2)(XG7]X<A(KH,CA[5D"""G31I$VC5LVZ
MC&HW9>Z@B %C,WDJ+7P,)H.BAOWR^>TWGW^< :@?&?S)4%^!^!W('TO_-2A@
M3!$&B.!\-%3HX'PX:"B@# 3>9^&#-GAX80PYF/C@#1K"(<=8=)36F@(NP@@8
M$67\1L=89X 00PU<N"$"@^<92$:.9=!1QH MONA&C 25P5F-3P+61!UL[.A0
M'CR"0 <:H<D8FAAY@"!#D$.*Z$-I8=AQUAQ+<F$"$;V)\5N3,(HYI9-T ):$
MDFWXB,-Y)XCPEX$$E99&&6ZB,$.)?XEP II[VBC"GV4$ZL0;\.&!F7)51E?H
MH0TF^B*C2^:@ZJJLIA#II$)R-M6LM-9JZZVXYJKKKKSV"E% [1V4$!TR-/20
MK\B.Y!%(+I5T4K,KM:3L2S[:\&A--YVD$PTSA-014#/ ,%2RY)9K[KGHIFMK
M55=EM5577X4U5F1HJ<666W#)%=Q=>>W55Z2"$6888HHQYAAD9J'U F66?:J9
M>)_!B5YIIZ6V6I2N21S;;+7=EMMN=/H&7%TD$6<<<LHQY]QYTU5W74?9H<R=
M&?GM04005 31AW?@0:S "" P=Z098X76FQP@C/%&&W"$\>(<G()@&!D@7#:'
M0V&4*4=O.\(W!PAFC8%E&DY[^8:78%:]W<\@**0>'740!,(=H3D=FD*+\>A"
M6Q]/_#9[4:JF--/[#E<<"61L=^@:9>3Q7'0M6]<6=HR7Z0,(B&]7\Q)%9+&S
M"2: D&C<;J@5P\N85PX"#Y@GKMSFG7\>^NARE'ZZ<"# X'/?HU&\WL4%J68U
M'(6#S2=@G&>A ^;4';$%#%W [OE?-^>\/ G-/Q^]#S;CK#.EG;557@SG]?XW
M\.[I )]\>R0/W>4Q4._]^V;V$6$,(Z+0?N?TRR!_SO2C@?T8A+\-[2\+]*//
M_X+0/Q@,\#X%%- !$UB#!=(O7 \<7_XFV /XV<""'03!#&2002I$\$(<O-P(
M07@Y&PCP?OFA$I1F),,;(:EK/?H1^#3H@R/I:$D_@J$/9*@G&AU/!"&S4Y>(
MHS;E[-"$^6&3F^0 )Q3(*8EW(F ,^53$&B)Q.R# 5*!&>!Y#80Z*/C#5HAHU
MPA34K'HZBQ3XU(6N@)BO8B^@(Z](\I&03,LD*)E6M)I%K8[0! 0VP4D-:' #
M&-R )#6P 0QL,"X]6O*2F,RD)J-BQ_3@L3T-:<,FG_(3%S8+D-!B"2$[(A,8
M[ 1;BJR!#)[E$9G<H)*CS*4N=\E+=#5M#&L(PQE"<\??M><VK]D8;>9@F[:,
M@&U!*-T;Q*"&,J &!'DKPY/*0#4AC,5I96H/"* 0!F *<TQE(F>?FN"TKH$
M!4VC Q &4YC#E,$%@TO!SYPIFN:$ 4M]&ES3GA8U,]3A,#OBU-[Z)M#B8:\Z
MV@/!Y1[JO!AT 02@$UV22&<ZU%$THJS[J$4Q.KN-ULY'J--=^'"CFZIAAG@D
MZX@7/PH]\(UG!#C-J4YWRM.>^O2G0 VJ4)^)TY\!;0JZV5H=NA::]KPG/BAX
M3@M , 2")*=N(%B?EZ*TMZ+B% 15F,,YKR?.Z#A5?5#=0N:4TP7[>!5H27 #
M7E)C5*.V#HQF31O1J-BG- *!(5A0QU",Q:TA8FK':$"&C # L:^ 0X)=<-7
MNDI4H#UAJ7/505V_6IXHG4>QH5D?&\HT!JLJB6IBHJQ1A\K:UKKVM45EZ6[6
M5SR3E>=Q[R3!")HG4=,]YP<@V ((#CJT0V4/>G\A;G<NNKPM=.$V)+%30KY6
M'I_!]KK8S6YE[8I4,2B5J2 XJX"D"H(@($AJ30Q#8_]*A[-]Z; %<0$(GN"&
MT0[7#6F(PV#7FZDYV+60 [P2^PF-01Q4[5?#>M8SQBE_*TU#&ZM;!CENE3-
MOO6NROELVERG7K]FRFP%1JU[TY;:S6KWQ"C^*=]:NI_:'HX*AY(9;B.'NLN$
M1@0*'N;R!-0>ZFTG!6AJK!ERN]OJK,Y']L$=7-T )\:D(6K),2P(P#28O9&$
M#&?; ^;*LX611D<[RMF!1N%6NYVE8<@H",'0BD:U[%"ARVV%;D> -I VO2E,
M:?N-&?KDAC<<R<H=08% C<-EB\;XQT>N#TEQ=^4LOW/-\&DSEZ'WVRV_&7H.
MEC$(-)N 0A+ZTA>-SOI.]N/-C)ET8NZ#G$% 9SG8F8IX#LV+SH &/OOYGK@3
M]-+@\&DX'UHYS[F<HD''Z(Y@&01:1@&DN6GI+<B@K2 KIN=O3T!@1G"FU9
MIZG5ZV>?9]373H&I:>>&5%LWQ>A.MXE!T-WO%BV\@=.!#Y.T)/+BZ(=2*YV'
M V6&K07JO5N-[[IS[!X&%Z1([<G/O)5D' Y'V*YQS>RZ'ZSAT' 8Q 1IPQO<
M!()^+TW*)>9L6<-+8L^VMVHW#(W'VX!@RV*VPA,?.6BS&I^ X_JMZ<ZY=E>\
MFX6/#'>V=<(0%LL&,A#$#8>:@GU*]N)?8QMRS5LUT*Y@\320P0TGZ!/1W(#:
M#8-QWXV59MQL#NA3U\XX5'C.07\SAZ\INSEL/F.220*T(>R:P "_^,GS_O72
M?8FQ??XST _'G-QD";>#GK:A,2=CJ8=QR'S/,&/+H-^O@/CO7PM\&4[P-0[_
MQ>?K+?N9<UMX@$(G.O7!74Q? C0CI.$,<3/:4J?\ACN H V&(2W1C:[-N84&
M#78N.W:$OONCG^?M6^=FKRD=;1]M.G?/6<&CX1[I;D,;N.1;WH(F1RVX#IEN
M4[:SF9)6?&T*OR.C-P[QTU!TX_< //HL9%TZW?K7QQZ;L[\#\/MTM+ OYDA(
MDQMC@!AMMQB--0=[TVDD, 5%PF7/EA\"2(!0(P>W07]4]5AEXE><EUX@UG]B
M(P='9VN"IX"%%FI;-@5P5H&LUD_X!G!C\7]GT3:G(8&+D8#-YFU?YH#;XW.]
M9E%+1RV>44A 0SYCL'M_,0=IP#3VI7$<!W":ATVE4P=P<'X@D"-(B&8DL'[M
MUWOOAV3%AFS:AG+)QQ_3QGP9A7;GH5:3U@7:<RAKZ&O-!CW4%F=AN&QDJ(//
M<8;ED8;3]FQM>(-LN'A]R(;/1H>%%(3=!P*;0G[LQWM(!P)J@!5] GI^1856
M"!SR%X9[&!W.A3HD@8@O06X@(%UM=T:H XI LXBX1P=%^!=2=&<@H&?\AS2S
M5FO8%(!)N"5FYW=IHWEE9X?+!VUZ6'I9DFAY&#K!V("@IG I1VK ]H-BR&;6
M=XRDEQ"F)VS4:'W*2&W,^$/."&'06%WAHW/DB%WKUFY<\VYGI4:H$E5J$31)
M<BH<9QC\Q6_^!G)<-7!BI6.,AU<&5P;YP8Z-0@)+T#@/]U41!W,71I"-4W$@
MH#IO 'EI W8G)Y W!S2==7!Y!5]A<C86V7'^UG+S]7)TM9 RXY 7IW]I4(1S
M$P9?8Y%D(%^PP31TD(%#UF?P 0)G\ 8Q8GXF5HY R5H\-V;R^'-,9QS$2 ?0
M:%LPACD%Z3@L$W7<MX)4YU)7EW4=-Q9=9W%?]U>%U7\E1A*BN';3-7UC*'>K
M1@))>1Z)5X*'\I1SUQ'DUH/0EGYJ:8W%V(7;IV2*>#:KV(I;]6H2(XNW*#JO
M9XLGIS1/,A;[!2=.4X1Z@SO 6(;"B(QW:7A]PCK#5E)DY@;!&)#QN$9+PI".
M XV3B8<D58V8V5N;N8O6!YJ*THZD*6[G%I2V"53GF%3IF)-G%8'398!3Y7JP
M)S=<,S?[)V4O* < *(,#^)M(@QF4)6#2.9TH( 6'V2>;<B0;2)@:IQ R* ::
MEP(B27#7@U3-68!(\V4)YP.^B9Z<<6$)69(2EI&AL9$VEU6W!F);1S7JU9X3
MV'$UN&Z710<2MY#F28/I27)W,X/.B9]' J!(0Y\M=YL4RE-#Z9^+X6)HAUO,
M=&9TL&JG"6K9.)>4"8$,BIZT.96B*(XW5:$NFE.YZ5V[V53Q1D11XHY3!07'
MHUYBLH&*J21/\C4G-P540 1/4 54,)[[6'#TN45Y<J-J]1MNP@9T")\4)I]V
M19\=89]B F(UQ#7120)2FB,..:9I$9%2]H2%!7!=NEAG\9AHD <R205Y <K
M^17VE0>],3><DG7_%6!PPG5HPUB%Y9+Y)C5R 'MMH$UT()(#6J 2-G,]^C4_
MRJA?0V!<,U<@1J1&BJ03^J(5.I0V6A :>EM1Z3)3&:+:0XTE.D1<A#&227W*
MIWB5Z5)70Y>F*:MW^&;/QJHZZ*1/4D0M"JJA>F'HN%3J&&^O"&LX"F^"63>"
M&@9PH(OJ95 (]61^=S8\FH\71I[_&$6N-D551 )&<%!CH#('N620FJ7B1!)<
M&B4+HQM=NG?A>F=A6JZ'H3+GP4 $809GH4V(<7EZ9:Z1!6+2NB4R^2>W)XE>
M$@:,(V47MV]_*F"&.A9SY:@D:6&16G('!WQ?8ZUC(#732AO,=G(:V'G;\:G$
M:IM#N:QP4JI-2:[FBJZG*CF2N2B X:U<T*1K4J_,NK/X.@9 )B1?F'[]>D8T
M=R.>9$Q1(@(@P =\H%%#)K/YVATY*0)#\ 1$4 0/,Y6MZK*C&;0TFWYV&(>&
MV!$F0+7GVAQ61*O/0;:ZVFP^Z%&_VK//:AQBVQQOBV9E.XCV,1ZW$WD=YI5B
MAS1A*9<FY9FF2I:EB'QQ=UN.9W=,@W=>EV%[5[D=QHN =VME9UM)B7B[1I=.
M%Y<KF 02R962]S645P>6=[F;JYTHJQR?EW*AASMVN99Z&7\=L7IT!P+">7_%
MB0:U=WNYQXA;6#K@!WQN0H59.'2-Z'YF*8V466G9!WT@('V.6WU^VWS5NY="
M^'B^%WX<UQ*0>;Q4:)=:Z(BG9R:Z^Q+SMX*_2YSY=YS]EYS+B:'/B8!AV$O\
MV[_^^[\ ', "/, $7, &?, (K"N=Y#N- 4IP($H)+!&EY!-_]"R"I$K3 A,S
M\4J(E"TY(4NT! (W8$NX%,$F?,(H/"N_%$S#Y#<5 S@S$C&AH4P=XTS0)$W4
M9$VSN"C;U$W?) ?AY%GD9$XM3";C%&7LY&2E T_),4\"8T_XM#3Z]$QL@R-F
M\$_%*%!.@QD%1;#8NE MU5"K1U,7-5'9,U(9)8HM<#O8<5P7%5)G?%%IG+@H
MA3LJ-1Y],SS%,U-N;%/.M+(4&J/NQIOQ-FKD555E<%7HI54A)V'>JJ5F5<AI
M]6!5*F'QJ;%9>G'VN5?>"7:!M5]KRK'WE%B+]36.!5G8.ED"FK$QYUGV*5JD
M95HERZV5!<@L*ULTQQ:KQY2X91Q%=@2]M<:5)ES*90;&!5'(=5]# P+,%5S/
M-96D2%U44)NV#)2"/*/P%CPZ,%[O:%[\R8$4.6(<*5_T95\'E5^@#"C^]573
MV<X=06#[<6#ZN& \:VT.]YZ6?*68S%F:K*#@S%[:>EZ7.\X_6<WE.)0MMLM-
MUX_ 5K,UAK,XMJ0[=B$])AH_%F1V^<M'%@.DNV1-5K!1!G!4%I.2Z6BT6B0R
M(V;D9F9HIF9QZ[:.5V?B&FNQV!PBB&LDH6M,([H,C6V:>8Q?>&S)UK=K6&FM
M:FV:QFF>1IG?!E7A-FZ):VY3V6K/*F6U>--EI].\1JNCRYI 74A"';V1!HA&
M7;=(C6A*S6V#V-3R\=0J'=4@H&HK9=!!><W(2LC:S(/V1KOT"'8KAX\"UZT2
M_8\(UV ]U(P/EJX3MJ[\[(\SIW<>F2D;IW+WR*:T3-CO>G G!WHKA[$$JI#S
M*7.]6'.-O%ITK7-#Z7.EFKY'EW1+N=#AYM!3#0)5>1E7J75:";%=^6%?.7:'
MZYJ+6U]EF;W,!KFS+;D#1=.0K=N2I[F9Q[F#AY1XJ91L&;I<W=,=#;Z">X!5
M6'EIX;K/#;OI-;OX5HFVBX6XBWKMR[MSYKOV)[]](KRVAWMNH'O/VWO)&WQ?
MV+SE5SK10=R[NJK<^WR*AKVJVJL#KGVDV[NF&[[*&QKDV]_GBX6LS87P]X7O
M6W_#*7M]HG]15K]]IIPQB+\':(,+N(T/R)XG.H$J6'<8N%X;N-P>&#<AZ*"X
M1H)OYF4GF()M88'W1F_(&>+WN^(!BN/4AN([B-@E"(V?^(5#:+QD<(2YN(23
MG:;Y&352:(EL<(6Y5>'^'1T<C>%UJ*O!F(V;&%R4^8=I+HAO6(CVT6D'7JMH
MR(F#J.8Z"(=U[N:>V!&@V+N+6+Z.^!>1Z)V4V*A?>(EBKH#FP8G/?(A?*(K1
M;(JX@XI]2;RLB :NZ+.#:=.%>=6%B81*J#5T[(30?65D/KVI*=VK^=.ISM0Y
MN(R'[8UN':MC.(VMOI;8V.HZB.3=2&_?F*+8,<WC>-KD:-?@M8ZAV8[DQ1RQ
M.8_Z]E=_;=F![<B#?6V%71"P693& 9?X#''Z/'%/Z9 0>;KUB'')OKSLZLK^
M/*^1W>R4O32>S=@8>9+VF9*+Q9)W8*@P*9-%0),VB9\YN9,]Z08J2^PI-I06
M6:J?BSI,^98&*=M\6=M6AW6X+:C;#7:];;CY*)9TS+ANU[=IEY:XFS36[99.
M:9"K1J)++F2J:7JYZWBJF!R ";8UO6>=?IT@]J.,>3>)+ >0*1N_>.I%?>O3
6;8RIJ?*P;I';;I"Y6NO;.XQ%G^MS#&>=
end