From 50fb88db7cc9216e4fb11f8f916e0f0eaf35048d Mon Sep 17 00:00:00 2001 From: NunoSempere Date: Sun, 15 Oct 2023 02:25:59 +0100 Subject: [PATCH] tweaks on ocaml match --- ocaml/out/samples | Bin 2845816 -> 2845816 bytes ocaml/out/samples.cmi | Bin 1486 -> 1500 bytes ocaml/out/samples.cmx | Bin 1620 -> 1620 bytes ocaml/out/samples.o | Bin 22984 -> 22984 bytes ocaml/samples.ml | 8 ++++---- 5 files changed, 4 insertions(+), 4 deletions(-) diff --git a/ocaml/out/samples b/ocaml/out/samples index 411a2e2e903c4c5db3881c332d5c28251f30615e..f5dd91ee3c018996305738da7a4485d72aa800a2 100755 GIT binary patch delta 600 zcmYk&Pe>F|90&04o0;92%BN#$x~u7|R_lh)(4nAH2QNiLg%yUNl7z+{RHUpY8>3e*-TM^nTn)5aj_y0UAdNQL28Ae0CRwzNw$l!(2pnDB7-~&j?*7s_ zcciCzx$*sl$0vHG-0QKzGe=GzyZPcxVkVwm2;L^;&xYe229PVVV2aTIoAc$q*os?! zhcR7_16_WU}ZL{>fY}iFQ*nwU9$GYNa;XLwji-#i^YVL2qV%Cbdlk_h%QaM(~AiO5)pmZXmsFn&htFy;hbmlYfd)lWzZK| z%M}L}`p&&O^X%UF_E_e4cKB2NX2j=3d_o3QVw3z7Ad76;LR)DY1q%_Mx^_8swnfL96gSp?Q zhW_cQ)~4?UP*-a)V6$mi_ju}%Wc8S*x@AJoRE~!_@2N(aD$IMz5((*rX*FpCMGwrV z%;aIgZD&JZ3&uz54Xgvj#Seb00x2gNK(Amfp0qH|A@WNmt^?CWCMm&{@~j{v_=rIZ zLBT|N)WUPXPA>WJ3wWB&T1as610~=-a4|j>sPxS_LnfwxW2Fthjb$LQScW%}QB+6U x$)S2`phgN&6YZd8YN0T-(oSllcG^W96rm`^sFS*AH|?Qr+Dko!k<7mE${%+Ns}leK diff --git a/ocaml/out/samples.cmi b/ocaml/out/samples.cmi index 318d8bd52bd0cad6790b694143a4995b30c44650..12723952ca2e01d84939298fb9b4fb9c9ddfd94d 100644 GIT binary patch delta 1013 zcmV~hqa|i+Z((#qK#)KJ1@++oKme*hu)r#FE^TZ=P*lJK z4?<8@KtQ1c0YE^Yu%I(;Z*py6Y+pGwUt?)sY-Mg|bZ7y80y(Qdu)qWlLu6=sK`Uu` zWmt0o0y@yZ!9c*XkfS7QX>)W*pun?`1PZLJz_XA9E3U7wNC5z|0RXqcMkr%-ZF6;P zSaSgaJF&8}w6#nD0S*BH5*kV)Zggk?0zA34BWZ4QLASuOp^%a$Q*>l(X<{aFWpj0G zbf5%mpun?#kfSDZbaH8KXHU4gyS!5Y0k8o9xVup)W@&C@Np56icmV=E1ZbeZ1Z}>( zz`;Pk!9WC+VsCG3MZb_iz`(Pi1bPI0!l1yj1cJfC#Km0!0?`2i)!tSnb#8ZQZe#%h zKFP?&#{_Ah1jEXp1jWnDWdQ@Z0Rz3mUMW*`Z2>;4z_XA98sOnY0S2f62CRBC zQ*>c}Ze(F{WKIDBLj?gn;^X8;0S4Ov2H*30EJWqzz_SEc=jiE80SATw2a1+|FHCP| z0Rlzp1p#U6?CtJP0SC+h2hiUDLO`IfpeR&t0Rl$v1p$)qz_SGbgYok7Q2_`O0SFf# zMJH`(cyx7gWdQ<5X`qk=0Y3Eg_V@Vt`-A#_{Qdq|0SNm62>%HNOh7<@x~PGqGBRV5 zB=zW^B9pP30}*g6NhmT$(i95A9BF9V0@GPVF{pbI+gB$N^A9wGA;EZPO|01ntp_HK zzA$!r){Eg=jn*}=)w{^a?aaTlhCu+Y-q)E8K>BdEig^EEma@%Yo|X0C<3^)(3xsrk zk!(peABc_E{5)#S`#Q6w{?)AfvgR>m)W#jT+C42+3tW&ixD^u+S;WG*c^W0s6PDQ+LecFW67WrgJd>o4t<-p@6UspF0d-ni zvtw{YgxGUiTINlDJGqHq{tI}a`%|%2=Wo6^*fbdzU2MrT>ov(Bq0>wu9ZwAC)@d3(gCFLt$-fF*!LoNiZ`rgq5bf4~Hj^YJ*peSdBC&wJ-euSoItLHfEJe zkXCLEz>B~`afUO2#&Jw=1FmU;>V@T;1Ta`ONtmr0i2!-#9Nf|zF3rVevF10AVCFpTFNpw}y103di zzsA~o35h48yAl%bM0eN%9o`>q`Fuo2)nPV+!({QUo~6+47V^$=?kR zsjFK;Gs{nZmOp}6i?HGa9d`~!L04(4xcA-5qIat5(+0hZeHZ)J3RHJK)IRyA%3w+q zOwFjABrmRi`2VNED+Sk)Fg4ef)n&bL=cnfF>9Xajdos^p`_mC$thjIO+SH^$(bXXT zuuW+m%mnz4`7b)56`Lr*AU_L4T^0?!G$Awkje8J(Uu&jr4KIJ09;r&|S~BrS5H{hS z3HQ7k8jv48i1aQ$+mh<(LtQo})qr7q3*%4q;34xPKU>pbwxeu_idKM)N8MjeQ`ncwce#8?V}_XKGQu=B^$Qm;V*KO}rsjlu z7scd%VBQ7hfm^g>xpIZYN);+o+NAva_;OPyf4REtl!@N-ZU(%(fR|5-0_Dlok8yWG z{IQ8Izp8}8VZM2{wX@up<^G7t5+zB@AK7~Og=!H`g$~5rXUM$~k|S$C9d{!|f(%$; zS;M^=?uCe`4e|LAC_jYYN(NK1{UNB*!aapw*$BM{CXU`PJ2Tsb@Uceg8rtq% zIDXt@8n-}P7s-}n^MQE8Y{yYIFSo>h zfV!_{=a-qslu{FCIEeSKUhTL{#$Z~4Ft&pf^lfFluOPpE^paaQ8QVbtN-Ns_5#v^E zKxhIB{N`zth)-B%V+cjJe@MVL5%x@)SO}%YJDpGlf*-6?*_s`L%S4EtE7C%q$q3CONpWe>iYPNay6bsbJtVhHLik4>Z>35_E)MIyO&sOEt6-tFq%@lg|So5Q44( UhnwV)TC`?kj}lT;t+E8%0qn%*CIA2c diff --git a/ocaml/out/samples.cmx b/ocaml/out/samples.cmx index 67a754722630e516ceaa7b7d4c7c83b518a5f198..76d484ca00e3915a930acb7eebd5057a936e2c8d 100644 GIT binary patch delta 98 zcmcb@bA@Nac}9VPtjKFFN33Gx?n@twTJ96G`99+uCYBY9Y%3<$vz%gSV`Oie?91vZ z3t}+%vamWhEZ|^ZP-bA!Wbln)Z~=;fRIF#6Do~~PVvPdtEYHUEyENyhH=F?glw}}- delta 98 zcmcb@bA@Nac}9VzbxiHEpG=I}l9t>r6cn;{^L@rSOe`B1*)~kBXF0{v$H?9{*_YK- z7Q|riWnp!2Sir%+pv=Ic$>1Bq-~to{saVfCRp8tKFW*PIw*^XyxH4WVG-d|?%kUtC diff --git a/ocaml/out/samples.o b/ocaml/out/samples.o index 134d045a16a89e54e82ccce837cd6507e325afb7..44d550ef6f3649c421633b65461e9ef3428b2949 100644 GIT binary patch delta 346 zcmY*UF-XHu5Pg>>{aJ)mX_8hEgGe0;1{XJRb5$u$3KcRqbZEdqq1Y5092|sO3w3l6 zEYUp$hYSvFam*|Z4(*=7pAN+y$8pEI_wHRBQXJB2*W9YAn1>@fZ(*hxrt`pDS*|T0 zK$7Ec^HllF@vXT|37=b=6miGep>6J47HwozAUBiXUa442mH8<+P@u!W4;Sn`dS>5t zL4N;1V8;skBUJ)(Z+e!iRC9 zA_1b|K*N_*_s1G82}Xac;s&^nnuIHvlSjgv{NBCDLzO(&7f69_@FdWXr*}udFK`{y a1tvgaD9attGMv1Q7H~A0YT@B(Xa5h~ct^ni delta 347 zcmY*Ty-UMz5PcVu{xTFvwfSfjA^0^~q@a_lj_Tl~P@!Xo1{^vBn?MH#2jLtX3ic1M z&=Lg47CK~X`xkT&rw%DNI+(N|_J-rVd++XE7*H5cr)li&$oMNeM#Uvg3yu56`r5Jr zY|8v)TuIXvzBjhW ( - match (acc, x) with - | (Error e, _) -> Error e - | (_, Error e) -> Error e - | (Ok(sum), Ok(y)) -> Ok(sum +. y) + match acc, x with + | Error e, _ -> Error e + | _, Error e -> Error e + | Ok(sum), Ok(y) -> Ok(sum +. y) ) ) (Ok 0.0) xs