Ciao a tutti...
Sono alle prese con questo strano linguaggio di programmazione (strano per me...)
Praticamente ho 2 liste.. la prima di quadruple di int e la seconda di int...
Dovrei creare una funzione che incrementi il terzo intero delle quadruple di indice contenuto nella seconda lista.... Quello che ho fatto finora è questo... (la funzione incriminata è sspush)...
codice:
let g1 = [(1,2,0,5);(2,3,0,3);(2,4,0,3);(2,5,0,5);(3,6,0,1);(5,6,0,2);(4,7,0,3)];;
let push n = function
(a,b,c,d) -> (a,b,c+n,d);;
let rec spush n = function
[] -> []
| x::xs -> (push n x)::(spush n xs);;
let l1 = [1,3,5];;
let rec sspush n l1 acc = function
[] -> []
| x::xs -> if (match l1 with [] -> false | y::ys -> (y=acc))
then (push n x)::(sspush n (match l1 with [] -> [] | y::ys -> ys) acc+1 xs)
else sspush n l1 acc+1 xs;;
Il prompt mi da' un errore sui tipi...
Help