Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
VEBER Philippe
codepi
Commits
78fa2386
Commit
78fa2386
authored
Oct 13, 2020
by
Philippe Veber
Browse files
update wrt core
parent
c5af63bf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lib/multinomial.ml
lib/multinomial.ml
+3
-3
No files found.
lib/multinomial.ml
View file @
78fa2386
...
...
@@ -53,9 +53,9 @@ let%pworkflow multinomial_ocaml_implementation ~meth ~(tree_sc:_ file) ~(faa:ami
)
)
in
let
seqs0
,
seqs1
=
List
.
partition_map
leaves
~
f
:
(
function
|
(
aa
,
0
)
->
`
Fst
aa
|
(
aa
,
1
)
->
`
Snd
aa
let
seqs0
,
seqs1
=
List
.
partition_map
leaves
~
f
:
Either
.
(
function
|
(
aa
,
0
)
->
F
ir
st
aa
|
(
aa
,
1
)
->
S
eco
nd
aa
|
_
->
assert
false
)
in
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment