From ab7435f7d7f296651828799bb0ed111ec13d0848 Mon Sep 17 00:00:00 2001 From: Alexandre Date: Sun, 9 Jun 2024 23:06:09 +0200 Subject: [PATCH] Some fixes --- a.out | Bin 282961 -> 283377 bytes trees.cmi | Bin 11283 -> 11283 bytes trees.cmo | Bin 26082 -> 26498 bytes trees.ml | 2 ++ 4 files changed, 2 insertions(+) diff --git a/a.out b/a.out index 96bce02c2cc5f9553fa3e982d2ab1b049ec00d68..4c7d6a4c633d99d28d2b94668e926417731e20a5 100755 GIT binary patch delta 452 zcmcb(NbuuQ!G;#b7N#xC0ZSOOwg)a@_7`IkWSo4CO^r2-fq~)b^s~E|r5SUlzud*F z&dUW90g37XG5d7E-OQUA*{3(|VHOq?0E!p^u`&>6fbjI%-OS?C&-5{JOb^-3tT0(Y zmqipLfmNYDn#pIWX0rSAhCR$*SnvP)|3782pn>@I3458Z=m|}I`~SZV&^3%e3h8WM_{^|dJP9Ph` zx18Sio>^S%^+$*>vQuV#n7-~kvmDcc58KbZXRePD;9X~N>*(z>$9Xy5A3e!vk-R=!G;#b7N#xC0ZSN}wg)a@_7`JZIelRcqdIFC0|P_u^s~E|r5P=!zud*F z&L}utb~p28PFA3V3lIxVU%7{Q^K^xM%wJgD|NsA=GFi|-e7nJZ<|}$af8YN9uLD%W z2*eRBk z|C~TJjK6TY;zwq2v0$h$vQwBoPWSuBEXTz0aeLlJ=K3fBHs=HDzD^Ej{q1RY{#3@} U%iI5Yvut8x`qVIeV-Sl203%UqFaQ7m diff --git a/trees.cmi b/trees.cmi index aba4cab01ee4317febc233d9d14f8401b6f6b8c1..362a8c97d8407c9d57ace793aec7e6a87e2ed0d5 100644 GIT binary patch delta 204 zcmbOnF*#zxVO0?;M!(ODe!mZ}vVCS`0(1PiCtp|HClbgQIE68A#sOA#DMls;Xa3}s zY6&7CjDhbN13v>L3>cXpoIjIg)whYnF$S|R26F%2%5 delta 204 zcmbOnF*#zxVO0?eM&AXDzAFx}vVCS`f^c?BzOK4Y#Gf(1kukva04uu`BNK$9BitAxynqr-j7$(t%;Xmuwj#S3W9Kl&g6x>Y$OPdmnrx}5DZu7@ YVBOcr;jF(s?arUdczk(tk>)}s0C|N#Y5)KL diff --git a/trees.cmo b/trees.cmo index b6df1d5578691da40ef5f290a9e4b7d1227204dc..1f34d8b5bdbc0f30df7b8f2fbeb2532f845a234b 100644 GIT binary patch delta 2970 zcmbVOdr(x@8RvKRUW@_>npFsQ)kRSdc9(?(+(kqls}kg4>?)5sEX&&zgd#~XW4flb zX`FTy4kQpaqgtls(gcvg=m8PbHEn{p$qn&{yKB8pCsngK!d{<`L{@I;9 zbAI3N_r1<{&)nV5F5w4%#L~h*TWgxf<0*H#oMB<*6TYypu&3W%TE0wK4AHbK8COK_ zG97K=Dd=KsS!C2Aa@a-7L2H4yvTS(if`?2D?e(-;Xhn;+V;>jZ7_;^mS%u=`m_+SA z`I7(1(;M^u4*}?idUmcoGngOesx=XUYy&u z^v>K|3VF!S*1L0a3u&LXJ!D6aEi)!Oj-6KX z0IF}{+mR$>K{1TQqHgDPb0v1PVaJb2I1I%wekpp(V?@WUlV%snno#yb5Fl>3OgBlcG~BJ@Ytz6(8CoUT}B)vauQ13f7e5{`PhuKu>bcN+cAHr97R zFA)za0ug$HbTV0?w~E(&DWb2^V%85z4m$Lg7_5NaFD_J4g^TQ*3w>NXs9a~(ud!VW z{RUOglpU~C3U}46prw`t6D%zZ4#P4c0h(aB!_4zoZswRDVL4@`;Fqw1dLi%=tTe#O zSb36}URWbJ>IAGtlz`R7(rd8pX7D}oNRE(rZ*yyYzErP9;nI*9GFjxxP8I~T0ZHyTmwn+(s>I&FZ zrs82Yv(rl0`97+Nusc~whMmShHSDmTXP*?<$C+`#KFdrR97Y}w96pwE;22^l8xAT@ z;RSG9W3U;iVdLCDK8R_znsuk&@OdLhJ5!45l5!3^h5!4SC z1<{Rb3Bpy$d43MpLC!n?R}V9TaE)-HlgKzEGv^}Xr%aqi#wm6=g^WoKdJ7rT%={Xe zREsjdh|C0L&Lgvgea<0sH!~NI$)!xcM`m!0D0Me7jZs}j<}CYsge+>6hB1yT8#5Eg z+Ae`<5LqqETtyajNPFwltvWwObJ)P!^1S)MK)z7CJEU|?6Vfx+^Xh4HfL0v z$Q~n~KF9p!+7Z~>(B6g({luyoHjK*s5#*TV9)X-Zxj%}W2DvW|B8O(!tD2ERUG%Ck z*ho*SSB=BQE~;p}I+{EE`}RE7=R$RFak<0y#j3s}U}+Q>LrMNLA1lN5TP6d0M`LBU0lU7M&EOh~;H z1=plrf`a>;;W`Ri#DUt?dSSQJ+fjH>>U&W*AoXw!UR9i{P0_t(slN)ZMe47>>t@{! z?@(W0bhQUCeVs4^30kRz!r)j zP>Ze9JAr0woo3L4BAPQ@;ARw2+rr7wO`VPVTKw(p{yhy)w%NpBV8fzq86>MwDCrS1 z0c+5WvJdGys)f^^2*bFQmxq#m*&Mc`)JDH}J*ShcX>O;pJI(2Io+96)P|l&|H>i1^ zjAQf0A1JW2h)>mnQn~;XxW?Dn*tk!|grNKuHGe|Q4KhwVG@@%}WDwtx@Bx&z$iEXi z!{3AQ9{hgz50meOdE-dF^!-v6P~Sx9EQ6CMQ@P~(D2rtM`YezD80%YqBx%S2%THHs`#-7GGGEr><5#L=#k zF&SxX3LN7{q@A_pht4o54NeAI$I{dvOmvJhby~(IEvf#{skOwIDN~bf-}7Gi(VabW zp7(j)uk+qBclV8t@%NipRvqo?^pup8G`hX+l#~YF_LP(q<=4v^GnLCJVsEAmU1BiP zf)cS67BQ8XfyLsp%<%;pxz*5GEV@>ViwCA>$}7q7d*&yu#b5t3nRJi>TJp0_Ahc9G z-fUD#o(QGZrPMwVMYT=%>3Dx_I?y5BscX!>`6QW?0ZVADpf#UBA#DDaP(npGB-V#= z@rekB3YC?!;zyzKu4A*wq@6tE=T}dY$py5}+ZV}BCtGIBd%??WufFh`uRv6a@_8~T z_Y7K#Xw7#abE&k_Nbe9i4a>(v^_LZ;A#eQOjpsGv5SrgW^U$P*87R6jEJk)%jRMUH zG=D(CV<@`uTQR+(+IR-dpQ1TQ!WqX+d% zQST=4Z%}k2DDE_ur<*n<5`&sD2h$c|3cJ!x9c({^>44Z4F0h)8v;AL~P9_q{z2#Y~dB#y+ zVC^QB9${@CgNIm4K0`%`#X9`wEtp z!k*8J1@?dhaWxzE7*jd0_p;L}*!e!H>tG*X$p$-(foeG6$YLKm91do@aBOGB1Bafc z1db~#1>sC%sT58sPvKQ?1{rLGlbos7cr~0C0Z))iX+58$O*l=&@qPcU;0-ck1X4ZPQw`4C<%W%vlbcs^0;ci^K_&>`-?x1D`% z!$+;sFmAzjikZ9cjY(h_fp3bLd+<@Gg0l$wV^%(p?Rz8RS zH3rY%rwVlc4PU^2j>Er%pN2sRiP1|uho6p2MQ@^5l|TcE9qf}tF=Zs?8z|bFsR zoTViw9w12_K`|w!d@E3Vje!Nl(+tcgekP;iS{4F4X3dNM^-Kv@Bf!HnJVk&q6O)g? zNg1ZCMSxq?TnKPR#f_4D@)>f?U#@M@{ju&Yl*|#UYAChJJq@M3a!*HTLhj!}=?%Fr zj-!-jIH(%2fw~w}mtzAxtwGg{4R@)c{_1G&i5%Q_q%G2ipq%ReldmJ_rU*?7BRIxQ z?nH2snFxY+B%`*YEQ^^RpsbHU2g>+FR`meNs1n8RNBJF$o~i$U3Z zO4RJxuyFHflGSgbc2@N7vBv$VKTO|AEtUR9=*ESL3e?WY=CB2Ir|3s-;C-9b6L7ox zJZ`spjC@Z+nZT|Xb{!z&oq6L31=d~SQw^Yw?f?a@+1}IEc2LG7pj^eSICc$^aq)$* zXxAAT#MdNs7SctsGZ;lE#wGuNP#=S7 xgs5p6?OzZYNhF4bwAA}(u!@OT&Z5-n$@jh#JGJMV%Rm08 begin match pth with | [] -> if isf then Node (x, {x = p.x; y = p.y}, aux l [] false, aux r [] false) else Node (x, {x = p.x + v; y = p.y}, aux l [] false, aux r [] false) + | Left::[] -> if isf then Node (x, {x = p.x; y = p.y}, aux l [] false, aux r [] false) else Node (x, {x = p.x + v; y = p.y}, aux l [] false, aux r [] false) + | Right::[] -> if isf then Node (x, {x = p.x; y = p.y}, aux l [] false, aux r [] false) else Node (x, {x = p.x + v; y = p.y}, aux l [] false, aux r [] false) | Left::t -> if isf then Node (x, {x = p.x + v/2; y = p.y}, aux l t false, r) else Node (x, {x = p.x + v; y = p.y}, aux l t false, r) | Right::t -> if isf then Node (x, {x = p.x + v/2; y = p.y}, l, aux r t false) else Node (x, {x = p.x + v; y = p.y}, l, aux r t false) | _ -> failwith "Not possible"