0votos

La mina de diamantes en F#

por josejuan hace 6 años

Probando matching.

Extrae los diamantes de la mina.

1
2
3
4
5
6
7
8
9
10
11
12
let diamonds mine = 
    let rec d n m = 
        match (n, m) with 
        | (_, []) -> 0 
        | (o, '<' :: x) -> d (o + 1) x 
        | (0, '>' :: x) -> d 0 x 
        | (o, '>' :: x) -> 1 + d (o - 1) x 
    d 0 mine 
 
 
// La firma es: 
//      let diamonds (mine : char list) : int 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.