0votos

La mina de diamantes en Haskell

por josejuan hace 6 años

Hay muchas variantes (algunas más cortas :P), pero esta me ha gustado más.

Extrae los diamantes de la mina.

1
2
3
4
5
diamonds = d 0 
        where   d _ [] = 0 
                d o ('<':x) = d (o+1) x 
                d 0 ('>':x) = d 0 x 
                d o ('>':x) = 1 + d (o-1) x 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.