0votos

La mina de diamantes en Haskell

por josejuan hace 6 años

Con "foldl" también mola.

Extrae los diamantes de la mina.

1
diamonds=snd$foldl(\(o,d)c->if c=='<' then(o+1,d)else if o>0 then(o-1,d+1)else(0,d))(0,0) 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.