<wuuru>
_JusSx_i: do you want to create the combinations or only count them?
_JusSx_i is now known as _JusSx-
<_JusSx->
wuuru : i need to create a combination
<_JusSx->
n elements in m places
<_JusSx->
i don't wonna u make the function
<drWorm>
looks like you mean the cartesian product or something
<_JusSx->
i would like u help me
<wuuru>
no, it is really called combination I think
* Nomme
search
<_JusSx->
yeah in italian it's "Conbinazione"
<_JusSx->
Dispozione or Combinazione
<Nomme>
un french "combinaison" :)
<Nomme>
*and
<_JusSx->
ok
<_JusSx->
could u help me?
<Nomme>
i'll try
<wuuru>
I think I did it...
<_JusSx->
really
<_JusSx->
?
<drWorm>
how do i use ocamlcp? i compile with it and it produces ocamlprof.dump, which i try to open with ocamlprof but it just dumpts it to stdout, it seems (it's non-ascii)
<wuuru>
I have lost the source code, however :-)
<_JusSx->
lol
<wuuru>
but it was easy
<_JusSx->
wuuru : i will try again
_JusSx- is now known as _JusSx_
<_JusSx_>
nothing is impossible
<Nomme>
wait :)
<wuuru>
_JusSx_: I think I did it as follows... I used {10;20;30;40} as 'digits' in a numeric system with radix 4
<wuuru>
_JusSx_: i.e. I generated {10,10}, {10,20}, {20, 10}, {20,20} etc.
<wuuru>
_JusSx_: and that I trew out the combinationes with repeated items such as {10,10}
<_JusSx_>
i need to group them in 3 or 4 or 5
<_JusSx_>
not only 2
<_JusSx_>
i can group them in 2
<wuuru>
_JusSx_: of course, then you will have to call this_function with argument 2, 3, 4 :-, 5
<_JusSx_>
lol yeah i know
<Nomme>
i think i have it, let me test :)
<_JusSx_>
well i will try to code it
<_JusSx_>
don't worry
<_JusSx_>
:)
<Nomme>
if you the answer shut up :)
<wuuru>
_JusSx_: generating something like {10,10}, {10,20}, {20,10}, {20,20} is easy, it is just like generating fixed length binary numbers 000, 001, 011, 110, 111, but with radix 4 rathen than 2
<Nomme>
*if you have the answer shut up :)
<Nomme>
ledit ocaml
<Nomme>
oups
<Nomme>
:)
<_JusSx_>
i don't have the answer. maybe i will have it i hope
lypanov has joined #ocaml
<wuuru>
NetBSD won't support any bluetooth device and I want to communicate with my zaurus wireless
<wuuru>
I think I must replace NetBSD with Linux :-)
wuuru has quit ["leaving"]
wuuru has joined #ocaml
<Nomme>
fuck
<Nomme>
<--- stupid
<lypanov>
hehe
* Nomme
shut the music down
<Nomme>
let rec append e (elmt_list:'a list list) = match elmt_list with
<Nomme>
[] -> [[e]]
<Nomme>
| [ s ] -> [e::s]
<Nomme>
| hd::tl -> (e::hd)::(append e tl)
<Nomme>
;;
<Nomme>
let rec comb elmt p = let n = List.length elmt in
<Nomme>
this algorithm use : "comb of p elements in n are equal to comb of p-1 elements in n-1 plus comb of p elements in n-i elements."
<Nomme>
*n-1 and not n-i
<_JusSx_>
well it works ;) great
<Nomme>
why do you need to code this function ?
<_JusSx_>
it can be used to find out a solution
<_JusSx_>
great work
wazze has joined #ocaml
<Nomme>
You can dcc me 2$
<Nomme>
:)
<_JusSx_>
lol
<_JusSx_>
thanx u very much
<_JusSx_>
now i have the result code but i think i will try to code it
<lypanov>
win 5
<Nomme>
to code it think about : C(n, p) = C(n-1,p-1) + C(n-1,p)
<Nomme>
win 6
<Nomme>
# comb (mklist 100) 50;;
<Nomme>
Stack overflow during evaluation (looping recursion?).
owll has joined #ocaml
owll has quit [Client Quit]
<wuuru>
Nomme: so what one should think about? :-)
<wuuru>
Nomme: C(100, 50) = 1.00891344545564e+29
<wuuru>
Nomme: RAM will not get all this combinations anyway :-)
mattam_ has joined #ocaml
dax has quit [Read error: 60 (Operation timed out)]
mattam has quit [Read error: 60 (Operation timed out)]
dax has joined #ocaml
<Nomme>
Wuru :)
Nomme has quit ["Leaving"]
Nomme has joined #ocaml
lypanov has left #ocaml []
Nomme has quit ["Leaving"]
dax has quit [Read error: 110 (Connection timed out)]
emu has joined #ocaml
<emu>
i am using ocaml 3.04. i know it's old, but does it not have Int32.compare?
maihem has joined #ocaml
mattam_ is now known as mattam
<emu>
is anyone familiar with the debian packages? apparently to compile ffi c files you need to get at the header files for ocaml but these are stored in a versioned directory.. is there some proper way of getting their path?
codeburnt has joined #ocaml
gim has quit [Read error: 60 (Operation timed out)]
_JusSx_ has quit ["BitchX: the un-Cola"]
malc has joined #ocaml
gim has joined #ocaml
clog_ has joined #ocaml
clog has quit [Read error: 110 (Connection timed out)]
clog_ is now known as clog
<codeburnt>
No implementations provided for the following modules:
<codeburnt>
Unix referenced from init.cmx
<malc>
ocamlopt unix.cmxa ....
<codeburnt>
ahh thanks
maihem has quit ["Client exiting"]
ayrnieu has quit ["system"]
malc has quit [Read error: 110 (Connection timed out)]