1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
open Graphics
open Types
(* #load "graphics.cma" *)
(* #load "fixed.cmo" *)
let _ = open_graph " 1024x768"
let _ = set_color black
let plot_car =
let size_y = size_y () in
fun ({x=x; y=y},_,_) ->
Graphics.plot (Fixed.to_coord x) (size_y - Fixed.to_coord y)
let plot freq cars =
ignore
(List.fold_left (fun counter car -> if counter <= 0
then (plot_car car; freq)
else pred counter) freq cars)
let list_iteri f l =
ignore (List.fold_left (fun i elt -> f i elt; i+1) 0 l)
let array_for_all f a =
let length = Array.length a in
let rec loop i =
if i = length then true else f a.(i) && loop (i+1) in
loop 0
let rec dedoublonne = function
|a::b::q -> if a = b then dedoublonne (b::q) else a :: dedoublonne (b::q)
|[a] -> [a]
|[] -> []
let merge_songs db = function
| [] | [_] -> ()
| id :: id's ->
let mysql_ids = List.map ml642int id's in
()
|
